Question

Задача 1. Найти сумму двух чисел
Program Z1; //{заголовок программы}
Var X,Y,S: Integer; //{раздел объявления переменных}
Begin {тело программы}
Write (‘Введите числа Х и Y’);
Readln (X, Y);
S:=X+Y;
Writeln(‘Сумма чисел X и Y равна ’, Summa);
Readln; {Оператор пустого ввода, заменяет Alt+F5}
End.
Задача 2. Программа тестирования знания дат
Program Z2;
Var G: Integer;
Begin
Write ('Введите год начала Великой Отечественной войны - ');
Readln (G);
If G = 1941 then
Writeln ('Ответ верный')
Else
Writeln ('Вы ошиблись');
Readln;
End.
Нарисовать блок-схему к 2-ум программам, написанных на языке Pascal.

Answer 1

Ответ:

верхние стрелки только не рисуй - не могу удалить .. и в первой программе ошибка при выводе выводится переменная Summa, а значение суммы находится в переменной S - в блок-схеме я поставил S

Объяснение: