Категория - Информатика Автор - marimilykh 6 лет назад ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО ПО ИНФОРМАТИКЕ!!40 баллов! Что будет выведено на экран после выполнения программы? s := '20202020'; s1 := 'foxford'; s := copy(s, 1, 2) + copy(s1, 1, 3) + copy(s, 3, 4); writeln(s); Кавычки в ответе писать не надо.
Категория - Информатика Автор - marimilykh 6 лет назад ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО ПО ИНФОРМАТИКЕ!!40 баллов! Что будет выведено на экран после выполнения программы? s := '20202020'; s1 := 'foxford'; s := copy(s, 1, 2) + copy(s1, 1, 3) + copy(s, 3, 4); writeln(s); Кавычки в ответе писать не надо.
Ответ Автор - maxchernov2007 Ответ: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.