составьте программу, которая для введённого числа находит его квадрат, если оно чётное, или куб, если оно нечётное.​

№1

Program z1;

var N:integer;

Begin

write ('Введите число N: ');

readln(N);

if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное');

end.

 

№2

Program z2;

var a, b, c, k:integer;

Begin

k:=0;

writeln ('Введите числа a, b и c: ');

readln(a,b,c);

if a<0 then k:=k+1;

if b<0 then k:=k+1;

if c<0 then k:=k+1;

write('Количество отрицательных чисел: ',k)

end.

Отмечено как нарушение через stoker ( W: 0% T: 4 )

Причина: смотри (^ этот символ означает степень, например 3^2 = три в квадрате или три в степени два) :
2,1 ГБайт * 90% = 1,89 ГБайт
1,89 ГБайт = 1,89 * 2^10 МБайт
1,89 ГБайт = 1,89 * 2^20 КБайт
1,89 ГБайт = 1,89 * 2^30 Байт

При сохранении текста обычно используется кодировка ASCII (26+26+33+33+10+спец.символы ~= 256 => 1 символ занимает 8 бит то есть 1 Байт)

Таким образом, из условий задачи мы имеем, что скорость записи составляет 200 символов * 1 Байт = 200 Байт/ минуту

200 Байт представим в виде 100 * 2

Теперь 3 класс S=t*v => t=S/v
Дано:
s=1,89 * 2^30 КБайт
v=100*2^1
t - ?

Решение:
t=(1,89 * 2^30) / (100*2^1) = 0,0189 * 2^29 (минут)

Округлив - получается где-то 19 лет и 4 месяца (19,358 лет)