ПО ИНФОРМАТИКЕ!!

Что будет выведено на экран после выполнения программы?

s := '20202020';
s1 := 'foxford';
s := copy(s, 1, 2) + copy(s1, 1, 3) + copy(s, 3, 4);
writeln(s);
Кавычки в ответе писать не надо.

65893 65893    2   19.02.2020 14:22    7

Ответы
kaka932 kaka932  07.05.2020 05:29

var

cost,kg:real;

begin

kg:= 0.01;

read(cost);

while ( kg <= 0.1) do begin

writeln(kg,' кг груш = ', kg*cost,' руб.');

kg := kg + 0.01;

end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика