3. вывести значение true, если высказывание для предложенных исходных данных является истинным, и значение - id328476420210624 от Пелагея9087 24.06.2021 13:38

Question

Информатика: 3. вывести значение true, если высказывание для предложенных исходных данных является истинным, и значение false в противном случае (все числа, для которых не указано иное, являются действительными): а)данное число x не принадлежит интервалу (a, b); б)данное целое число x является нечетным; в)данное число x является корнем уравнения: ax2+bx+c=0; составьте программки в паскале

Пелагея9087 · Accepted Answer

Var n:integer;
begin;
readln(n);
case n of
0:writeln('zero');
1:writeln('one');
2:writeln('two');
3:writeln('three');
4:writeln('five');
6:writeln('six');
7:writeln('seven');
8:writeln('eight');
9:writeln('nine');
else writeln('Some number');
end;
end.
2.var n:integer;
begin;
readln(n);
case n of
1:writeln('January');
2:writeln('February');
3:writeln('March');
4:writeln('April');
5:writeln('May');
6:writeln('June');
7:writeln('July');
8:writeln('August');
9:writeln('September');
10:writeln('October');
11:writeln('November');
12:writeln('December');
else writeln('Some number');
end;
end.

MOGZ ответил