1. 0,25 Кбайт=256 байт = 2048 бит
2. Каждый символ - 8 бит
3. 2048/8=256 символов
Var A: array[0..100] of integer;
Допустим: Папа родился в 1977 , но он младше мамы по месяцам и дням. Мама родилась на 2 года позже папы , в мае 5.
Program spinogryz21;
var
x, i: integer;
yes: boolean;
begin
yes := FALSE;
write('Введите число Х ');
readln(x);
for i := 1 to 4 do
begin
if (x mod 10) = 6 then yes := TRUE;
x:=x div 10;
end;
if yes then writeln('6 входит в число Х')
else writeln('6 не входит в число Х');
end.
Ответ:
Скажите значения переменных, тогда напишу программу.И на каком языке уточните.