Визитка города2.история города3.дстопримичательности
Var a,b:integer;
begin
read(a);
b:= a mod 10;
if b=0 then writeln('Ноль') else
if b=1 then writeln('Один') else
if b=2 then writeln('Два') else
if b=3 then writeln('Три') else
if b=4 then writeln('Четыре') else
if b=5 then writeln('Пять') else
if b=6 then writeln('Шесть') else
if b=7 then writeln('Семь') else
if b=8 then writeln('Восемь') else
writeln('Девять');
<span>end.</span>
Pascal ABC.
var
a,i,sum,k:integer;
begin
for i:=1 to 20 do begin
a:=random(1000);
write(a,' '); // вывод чисел
if (a mod 3 = 0) or (a mod 5 = 0) then
begin
sum:=sum+a; // складируем сумму
inc(k); // считаем количество
end;
end;
writeln;
writeln(sum,' ', k,' ', sum/k); //вывод результата
end.
Операция ИЛИ расширяет число ответов на запрос, а И - сужает. Во втором ответе получаются две скобки с большим числом запросов, а в четвертом более конкретно получится, потому что в скобках стоит операция И.