Program N_1;
var a,b:integer;
begin
b:=0;
begin
for a:=10 to 40 do
if a mod 5 = 0 then
b:=b+1;
end;
writeln('Количество чисел, кратных 5 -', b)
end.
Программа использует "a" , как счетчик от 10 до 40, а "b" , как количество чисел, если число делится на пять без остатка, то количество чисел +1,
Ответ программы: 7 чисел
Итак:
на один символ было 16 бит, стало 8, таким образом:
8x=16x-240, отсюда:
x=30 символов
1 знак=1 байт
1 байт +7500000000 мбаайт
Uses Crt;
var
x,y:real;
begin
Write('Vvedite x,y: ');
Read(x,y);
Writeln((x>1) and (x<7) and (y>6) and (y<8) or
(x>3) and (x<5) and (y>2) and (y<6));
ReadKey
end.