Var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=10 to 99 do
begin
if (b mod a = 0) or (b div 10 = a) or (b mod 10 = a) then writeln(b);
end;
<span>end.</span>
Program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
Решение можно представить в виде логического выражения:
A ∧ ( B∨C )
В виде схемы это выглядит так:
<span>Что мы знаем о войне Немного
По рассказам бабушек и мам
Знаем, что надежда и тревога
Об руку ходили по домам
Слухи зависали как знамена
Дымом застилался горизонт
Многоверстный и многоименный
Жаждал крови ненасытный фронт
А из тыла за волной волна
Шла латать верховные промашки
Всасывала мальчиков война
И выплевывала мертвые бумажки
Каждый шаг к победе ли к беде
Сводки измеряли расстояньем
Даже самый распобедный день
Был комуто вечным расставаньем
Годы возвращающий экран
Очевидцев честные романы
Все равно останутся обманом
Ссадины не заменяют ран
Только изредка за толщей дней
Вдруг всплеснёт сирены голос лютый
Замирая криками детей
И застынет сердце на минуту
</span>
1) Не верно
2) Верно
3) Не верно
4) Не верно
5) Верно