Выполните пример. В тетради выполните блок схему и перепишите листинг. ПРИМЕР №1. Var a,b,c: Integer; delenie:real; name:string[10]; begin Writeln(‘Введите Ваше имя’); Readln(name); Writeln(‘Введите первое целое число’); Readln(а); Writeln(‘Введите второе целое число’); Readln(b); c:=a+b; delenie:=a/b; Writeln(‘Здравствуйте ’, name); Writeln(‘Сумма Ваших чисел равна’, c); Writeln(‘результат деления Ваших чисел равен’, delenie:4:2); Readln; End.

Никита2OO7    2   13.11.2020 20:11    1