А какой ребус отправь я решу
Да, правильно, т.к. в 1 мб 8388608 бит. Делим на 4 и все.
Program programma;
Uses crt;
var a,b,min: real;
Begin clrscr;
write('Введите a = ');
readln(a);
write('Введите b = ');
readln(b);
if a>b then
min:=b
else
begin
if a<b then
min:=a;
if a=b then
write('a и b равны');
end;
write('Min = ', min);
readln;
End.
var x: integer;
begin
readln(x);
if (x=0) or (x<0) then
write(0)
else
if (x>1) then
write(x*x)
else
write(x);
end.
Вроде как так, с точками с запятой, надеюсь, не ошиблась.
При х=14 значение 'у' будет 196.