Question

ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО ПО ИНФОРМАТИКЕ!!40 баллов!

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

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

Answer 1

Ответ:

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.