Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.
var a,b,c,d,z:integer;
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
while (z = 1) do
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Построить отрицания следующих высказываний: ученик выполнил . все дети играют в футбол. у меня дома есть компьютер. витя знает китайский язык. все девочки катаются на велосипеде.
Ученик не выполнил задание.
Не все дети играют в футбол.
У меня дома нет компьютера.
Витя не знает китайский язык.
Не все девочки катаются на велосипеде.