tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Решить инфографику : составьте
Решить инфографику : составьте программу для решения ,которая проверяет,может ли посещать ребёнок детский сад,т.е его воздаст до 6 лет.посчитайте через сколько лет он станет школьником.
Lepninanastia
3 22.09.2019 01:20
0
Ответы
левецинкking
08.10.2020 08:25
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
artiom726
28.10.2020 08:15
Какая формулировка верна для описания сетевых вирусов? 1.распространяется по компьютерной сети2.наносит ущерб секторам загрузки3.макрокоманды повреждают документ4.может повредить...
лолпа
28.10.2020 08:15
3 вариант 1. Квартальный отчёт отдела организации (в тыс. сум.).КварталОбъём товара, вСебестои- Всеготоннахмость 1сТОННЫ1. І квартал2 ІІ квартал3. ІІІ кварталСредняя стоимость205,6207,7208,8224002180022400...
Imdav88
09.04.2019 12:15
Вpascslabc.net определить можно ли окружность вписать в квадрат, по старому образцу...
точно2
09.04.2019 10:17
Арифметического выражения: 25^94+5^216-125 записали в системе счисления с основанием 5. сколько цифр 4 содержится в этой записи?...
j89026190695
09.04.2019 10:25
Напишите программу на паскале. определяет сумму и произведение цифр двузначного числа и число наоборот ...
666Luc666
09.04.2019 10:28
Написать программу на с++. вариант 14...
uliiashurinova
16.04.2021 04:33
Вариант 5 1) Алгоритм вычисления функции F(n) задан следующими соотношениями: F(n) =2-n при n 3 F(n) = 3n +5+ F(n-2), если n чётно, F(n) =n+ 2-F(n-6), если я нечётно. Чему...
frolovbogdan122
16.04.2021 05:03
Составить фразу ТЕАТРАЛЬНАЯ АФИША из слов СТАТИСТИКА , АМФИТЕАТР , МЫЛЬНИЦА , ЯШМА . На АBC Паскаль....
bezin2000
30.03.2021 15:30
Решите с подробным объяснением....
ksusha20032
18.02.2021 16:27
Дано двузначное число. Найти его слогаемые сделать в паскале (к примеру 9+9=18)...
Популярные вопросы
Существует множество грибов, паразитирующих растения. а существуют ли...
3
Сколько будут весить 12 * 1020 молекул водорода, 12 * 1023 молекул, 12...
2
Какое из данных множеств является подмножеством другого : а)а-множество...
3
На все вопросы (кроме 9-ого) ответом является 1 или несколько городов...
3
Построить график функуии f(x) = 3+2x-x^2...
1
Какой объем водорода образуется при выделении 2.4 граммов магния с раствором...
3
Текст разделён вертикальными черточками на смысловые части так, чтобы...
1
Лексическое значение слова шерстяной...
1
Почему геродота можно назвать первым...
1
Составить предложения со словосочитаниями: определенные намерения, отчетлтвая...
3
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.