1)Якої моделі за подання не існує? А) Матеріальної
Б) Інформаційної
В)Суспільної
2)Про яку модель можна говорити, коли ми маємо справу з рівняннями, формулами,
нерівностями, функціями?
А) Словесна
Б) Графічна
В) Структурна
Г) Математична
3) Розгалуження це...
A) Фрагмент алгоритму, який містить команду перевірки умови
Б) Жодна з команд алгоритму не може бути виконана
В) Фрагмент алгоритму, усі команди якого обов'язково виконуються, причому кожна тільки по
одному разу
// Внимание! Если программа не работает, обновите версию!
begin
var age:=ReadInteger('Введите возраст:');
var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
if gender=1 then
case age of
0..13:Writeln('Мальчик');
14..20:Writeln('Юноша');
21..70:Writeln('Мужчина');
else Writeln('Старец')
end
else
case age of
0..13:Writeln('Девочка');
14..20:Writeln('Девушка');
21..70:Writeln('Женщина');
else Writeln('Старушка')
end
end.
program m1;
var a,b,c,:integer;
help:string;
begin
b:=0;
for var i:=2848 to 109499 do
begin
str(i,help);
if pos('9',help)<>0 then
begin
c := 0;
a:=i;
while a > 0 do
begin
if a mod 10 > 5 then
begin
c := c + a mod 10;
end;
a := a div 10;
end;
if c mod 3 = 0 then
begin
b:=b+1;
if pos('8',help)=1 then
begin
writeln(i);
end;
end;
end;
end;
writeln(b);
end.
Объяснение:
20865 89997