Begin
var count := 0;
var sum := 0;
while True do
begin
var a := ReadInteger;
Assert(a <= 300);
count += 1;
Assert(count <= 100);
if a = 0 then
break;
if (a mod 4 = 0) and (a mod 10 = 8) then
sum += a;
end;
Writeln('Сумма чисел по предикату равна ', sum);
end.
№43 - 4)12 (ответ номер 4)
№71 - 9 (девять вариантов)
Var a,b:integer;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if (a > b) then
writeln('a больше b')
else if (b > a) then
writeln('b больше a')
else
writeln('a равен b');
end.
Аудиальная (звуковая) – ее мы получаем с помощью слуха;Визуальная (зрительная) – ее мы получаем с помощью зрения;• Обонятельная – ее мы получаем с помощью обоняния;Вкусовая – ее мы получаем с помощью вкуса;<span> Тактильная – ее мы получаем с помощью осязания.</span>