Повидомлення про векторну та растрову графику (небольшое) - вопрос №14043056 от кил10 26.11.2020 02:03

Question

Информатика: Повидомлення про векторну та растрову графику (небольшое)

кил10 · 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: составьте программу для решения ,которая проверяет,может ли ребёнок посещать детски