Var n: Word;
begin
write('Введите число ');
readln(n);
write((n mod 10 = 3) or (n div 10 mod 10 = 3) or (n div 100 = 3));
readln;
end.
512*256 = 131072 пикселя (2^9 * 2^8 = 2^17 пикселей)
Роман, козак,коза,Канада, мак,Рома,корова.
cls
rem
input "введите расстояние до школы"; s
input "введите скорость ходьбы"; v
t=s/v
print t
end.
|----------------
| |
| |
|---------------|