Program pr1;
Uses Crt;
Var
dn:integer;
begin
ClrScr;
write('Введите номер месяца:');
readln(dn);
if (dn>0) and (dn<13) then
begin
case dn of
1,3,5,7,8,10,12:writeln('В этом месяце 31 день');
4,6,9,11:writeln('В этом месяце 30 дней');
2:writeln('В этом месяце 28 дней');
end;
end
else writeln('Введите корректно');
readln;
end.
Ответ:
program HelloWorld;
var t, y, a, b: real;
begin
a := -0.5;
b := 1;
writeln('Input t');
read(t);
if (t >= 1) and (t <= 2) then
y := a * (t * t) * Ln(t) ;
if t < 1 then
y := 1;
if t > 2 then
y := Exp(a * t) * Cos(b * t);
writeln(y);
end.
Объяснение:
Ответ:
древнеегипетская система счисления
Объяснение:
древнеегипетская система счисления относится к непозиционной системе счисления
Я что-то не понял что на что конкретно ответить нужно.