НАПИШИТЕ СКРИПТ Сума арифметической прогресии [2,5,8,11,14,...] В - id1271680720210314 от mazaliaopera 14.03.2021 15:18

Question

Информатика: НАПИШИТЕ СКРИПТ Сума арифметической прогресии [2,5,8,11,14,...] В

mazaliaopera · Accepted Answer

Program Test;

Var Vozrast: integer; Bol, Mistake: boolean;

Begin

Bol := true;

Write('Введите возраст ребенка: ');
Readln(Vozrast);
Writeln();

if (Vozrast > 6) then
Writeln('Ребенок не может посещать детский сад')

else if (Vozrast <= 0) then
begin
Writeln('Некорректный ввод данных!');
Mistake := true;
end

else
begin
Writeln('Ребенок может посещать детский сад');
Bol := false;
end;

if (Mistake = false) then
begin
if (Bol = false) then
Writeln('Ребенок станет школьником через ', 7 - Vozrast, ' лет')

else
Writeln('Ребенок уже в школе');
end;

End.
Решить в paskal: составьте программу для решения ,которая проверяет,может ли ребёнок посещать детски

Решить в paskal: составьте программу для решения ,которая проверяет,может ли ребёнок посещать детски

НАПИШИТЕ СКРИПТ "Сума арифметической прогресии [2,5,8,11,14,...] В

MOGZ ответил