Var
i, n, k: integer;
begin
n := 1; k := 0;
while n <> 0 do
begin
Write('Введите целое число, 0 - отказ от ввода: ');
Readln(n);
if (n <> 0) and (n mod 2 = 0) then k := k + 1
end;
Writeln('Введено четных чисел- ', k)
end.
Введите целое число, 0 - отказ от ввода: 34
Введите целое число, 0 - отказ от ввода: 137
Введите целое число, 0 - отказ от ввода: 72
Введите целое число, 0 - отказ от ввода: 9243
Введите целое число, 0 - отказ от ввода: 0
Введено четных чисел- 2
Ответ:
Отяаьщшьпь беняй, м фцхый эюьхтпнщ. Яэьгпнацщям, сн эьхсыь. Пьа ьы, эюцпнщ! Эьщбхынчшн — м ъыцщ ятом ъбсютдьъ Ц хныьяецпь фснщ ынрюнс ц эьгпнщ. Ьяанщйыиг ътеанщ хн яьоьч птяац, Н ьыц ътым янъц яоцщц я эбац. М — ьсцы, н ынрщиг ытптфс ыт яьеатёй, Ц ытщтэит ёбашц ыиыт п етяац. Ыц сюбхтч б ътым, ыц щлоцъьч ыта. М бяанщь эьл ын цягьст щта. Ь, шншцъ ытьозмаыиъ шнхнщям ъцю Аьч эьюьч, шнш пяаютенщ м фцхыц юняяпта!
Каждая буква заменяется на следующую в размере 14. То есть А это Н и т.д.
Var x1,y1,x2,y2,r:real;
begin
readln(x1,y1);
readln(x2,y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(r:5:3);
end.
Пример:
1. 1.
2. 2.
<span>1.414</span>
Очень просто
запускаете двое часов одновременно, через три мин. переворачиваете часы на три минуты, через 6 мин. от начала еще раз переворачиваете их, когда закончится песок в часах на 8 мин, переворачиваете часы на три минуты, они как раз отсчитают две минуты так как на теперь уже нижней стороне оставалась минута до 9 минут, а на другой стороне 3-1=2минуты, 8+2=10.
Дано:
N = 256 (кол-во символов в алфавите)
K = 160 x 192 ( кол-во символов в сообщение)
Решение:
1) нужно узнать сколько весит один символ в алфавите, формула N = 2 в степени i, получаем 8 бит;
2) сейчас узнаем сколько памяти потребуется для сохранения данного сообщения, всё нужно перемножить,160 x 192 х 8 бит = 245 760 бит ( делим на 8) = 30720 байт ( делим на 1024) = 30 Кб
