Построение блок-схем 1. Найти сумму четных чисел из первых 10 натуральных чисел. Program Z31; Var N,S: integer; Begin S:=0; For N:=1 to 10 do If (N Mod 2)=0 Then S:=S+N; Writ...
Построение блок-схем
1. Найти сумму четных чисел из первых 10 натуральных чисел.
Program Z31;
Var
N,S: integer;
Begin
S:=0;
For N:=1 to 10 do
If (N Mod 2)=0 Then
S:=S+N;
Writeln (‘сумма чётных из первых 10 натуральных чисел равна ‘, S);
End.
2. Наименование сезона по номеру месяца
Program Z32;
var
Month: integer;
Season: string;
begin
write('Введите
номер месяца: ');
readln(Month);
if (Month=1) or (Month=2) or (Month=12) then
Season := 'Зима'
else if (Month=3) or (Month=4) or (Month=5)
then
Season := 'Весна'
else if (Month=6) or (Month=7) or (Month=8)
then
Season := 'Лето'
else Season := 'Осень';
writeln('Это ',Season)
end.
Гость
Ответ(ы) на вопрос:
Гостьк первой задаче ........................
Не нашли ответ?
Похожие вопросы