прошу!помогите,пожалуйста!нужно распечатать в столбик таблицу умножения чисел от 1 до 10 на 0.8
More Questions From This User See All
прошу!помогите,пожалуйста!нужно распечатать в столбик таблицу умножения чисел от 1 до 10 на 0.8
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Общий смысл вот такой. Но почему она не работает я не могу понять. Может где ты ошибку найдешь =)
program qq;
var i,a:real;
begin
i:=1;
a:=1;
while i>=10 do begin
a:=i*0.8;
writeln ('0.8*',i,'=',a);
i:=i+1;
end;
end.
var a:real; i: integer;
begin
for i:=1 to 10 do begin
a:=i*0.8;
writeln ('0.8*',i,'=',a);
end;
end.
var a:real; i: integer;
begin
for i:=1 to 10 do begin
a:=i*0.8;
writeln (i,' - ',a);
end;
end.
благодарю за помощь)