1. Информатика
  2. Зная количество детей

Зная количество детей в семье определить её общественный статус (обычная тли многодетная).

aleksandraluka aleksandraluka    1   18.05.2019 09:07    9

Ответы
margo344 margo344  11.06.2020 16:10

program raf105;

var kid: integer;

begin

write('Введите количество детей в семье: ');

readln(kid);

if kid >= 3

 then writeln('Семья многодетная')

 else writeln('Семья обычная');

end.

PascalABC 3.4.2
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
travisbeats travisbeats  24.06.2019 07:36
Найти сумму чисел 371(10)+110011(2)+2f(16) в десятичной системе...
настасимммаа настасимммаа  24.06.2019 08:50
Паскаль ! ввести массив на 15 чисел. сумму 5 и 7 элементов массива принять за длину прямоугольника. сумму 8 и последнего элементов принять за ширину прямоугольника. вычислить периметр...
n1kitat n1kitat  24.06.2019 08:50
Запишите полные имена всех файлов размещенных на диске,файловая структура которых представляет: e: / видеозапись awi графики xis . jped катунь.jpe txt орошин doc мелодия mp3 презинтация...
anokhina69 anokhina69  24.06.2019 08:50
1- устройство, которое обрабатывает информацию и работой компьютера называется 2 - временная память, т.е данные хранятся в ней во время работы компьютера, до его выключения, 3 - -...
iojhhjkl iojhhjkl  10.12.2020 00:46
. Напиши номер инструмента (картинка из предыдущего вопроса), который используется на изображении: * Подпись отсутствует 10. Напиши названия фигур через пробел, построенных в 3 D редакторе,...
alinaalina060 alinaalina060  10.12.2020 00:47
выполнить эти два задания ещё 22 минуты...
fykdshklf fykdshklf  23.12.2020 09:11
Питон Напишите программу, которая принимает на вход числа и , написанные в одной строчке через пробел, и решает линейное уравнение вида +=0 . Если корней бесконечно много, программа...
aigul666 aigul666  23.12.2020 09:10
Задание. Составьте маску файлов....
lglglglgl lglglglgl  23.12.2020 09:10
Определите значение переменной b после выполнения данного алгоритма: a := –5; b := 4; a := 6 * b; b := 2 * a – b*7; b := a + b; Дан фрагмент линейного алгоритма: а:=5; b:=4*а + 1;...
yanssen1976 yanssen1976  29.01.2022 13:18
Задача № 3: Ввести число. Если оно четное и трехзначное, разделить его на 4, если нечетное и двузначное - умножить на 5, если оно однозначное – умножить на 100....

Популярные вопросы