Program CrazyCoder;
var a,b,c: real;
begin
write('Введите число "A": ');
readln(a);
writeln('Введите число "B": ');
readln(b);
c:=a-b;
write('Сдача: ', c);
<span>end.</span>
Var i, k: integer;
var arr: array[0..19] of integer;
begin
for i := 0 to 19 do
read(arr[i]);
for i := 0 to 19 do
if arr[i] mod 10 = 4 then
k := k + 1;
writeln(k);
end.
Отгадка Комар
А часть коробля:корма
32 = 2^5. Один символ 5 бит
240 Кб = 240 * 1024
240*1024*8/5 = 393216
Ответ: 393216