Ответы
Ответ дал:
1
Задание 1.
var price, i: integer;
begin
write('Введите стоимость 1 кг картофеля: ');
readln(price);
for i := 1 to 10 do
writeln('Стоимость ', i, ' кг картофеля: ', price * i);
end.
Задание 2.
var i: integer;
begin
for i := 16 to 36 do
writeln('Кв. корень ', i, ': ', Sqrt(i));
end.
Kokuhibo:
помогите пожалуйста с программированием
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
8 лет назад