Используя str и конкатенацию, получить фразу "2000 лет".

@irina100 · Регистрация: 14.02.2017

Pascal

Program Primer; Uses crt;
 var a: string;
  r,x,y: integer;
 Begin
  clrscr;
 a:='100 лет';
  val(a,x,r);
  y:=5*x;
  write('Y=',y);
  readkey;
End.

Задание:
Исполнить пример , затем используя str и конкатенацию, получить фразу "2000 лет".

@Hitoku · 28.02.2017, 22:54

Задание не совсем понятно, т.к. в примере y=0 (как я понимаю должно быть 100) и не совсем ясно, что он демонстрирует

@chloyka · 01.03.2017, 08:50

Как бы понятно все. Пример допилить надо, для начала. Собственно, вот он - допиленный пример:
Program Primer;

Pascal

Uses crt;
var a,b: string;
r,x,y: integer;
Begin
clrscr;
a:='100 лет';
b:=copy(a,1,3);
val(b,x,r);
y:=5*x;
writeln('Y=',y);
readkey;
End.

@Hitoku · 01.03.2017, 09:42

Pascal

Begin
var a:='100 лет';
var b:=copy(a,1,3);
var y:=20*StrToInt(b);
var str:=IntToStr(y)+' лет';
writeln(str);
End.

@Cyborg Drone · 03.03.2017, 23:38

Все приведённые решения не вполне соответствуют заданию. Указано:

Сообщение от irina100

используя str и конкатенацию

Поэтому программа должна выглядеть, например, так:

Pascal

var a, b: string;
    x: integer;
begin
  a := '100 лет';
  val(copy(a, 1, pos(' ', a) - 1), x);
  delete(a, 1, pos(' ', a) - 1);
  x := 20 * x;
  str(x, b);
  a := concat(b, a);
  write(a)
end.

@Hitoku 1740 / 1333 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	28.02.2017, 22:54	2
	Задание не совсем понятно, т.к. в примере y=0 (как я понимаю должно быть 100) и не совсем ясно, что он демонстрирует 0

Опции темы