Question

прошу!помогите,пожалуйста!нужно распечатать в столбик таблицу умножения чисел от 1 до 10 на 0.8

Answer 1

Общий смысл вот такой. Но почему она не работает я не могу понять. Может где ты ошибку найдешь =)
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.

Answer 2

program qq;
var a:real; i: integer;
begin
for i:=1 to 10 do begin
a:=i*0.8;
writeln ('0.8*',i,'=',a);
end;
end.

Answer 3

ааа спасибо спасибо:)))
благодарю за помощь)

Answer 4

да не за что)