Восстановите текст программы ( вставте пропущенные обозначения )

var

I:integer;

x:integer;

y,q:integer;

a:string;

begin

i:=o;[обнуление переменных]

x:=0[ обнуление переменных]

y:=0;[обнуление переменных]

writeln ("Как вас зовут?Введите ваше имя русскими буквами-') ;[вывод заданного текста на экран]

readin (a);[ввод переменной, в которой храниться имя]

writeln ('Введите количество расчетных циклов-?); [ вывод заданного текста на экран]

readin (i); [ввод переменной, указывающей количество повторений]

for vas z:= 1 to I do

begin

writeln ( 'введите х- '); [вывод заданного текста на экран]

readin; [ввод переменной]

writeln ('введите у-'); [ вывод заданного текста на экран]

(у); [ввод переменной]

q:=q+x+y; [вычисление суммы]

end;

('Уважаемый', а, 'Сумма всех введённый чисел=',q,) ;

end.
​

marysyakgl    2   09.05.2020 21:06    8