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

Question

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

Comments

я правильно поняла, что тебе нужна программа?

---

да,программа,созданная в Паскале

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.

Comments

все танцуй! готова) смотри первый вариант вывода

---

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.

---

второй вариант

---

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

---

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

---

да не за что)