Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
A) Вкторная графика.
B) на распечатанном отсутствует треугольник.
Незачто :3
Введем обозначения: А - первая буква согласная, В - третья буква гласная. Перепишем условие согласно принятым нами обозначениям и учитывая, что оно должно быть истинным:
НЕ А И НЕ В = 1.
Логическое произведение двух переменных истинно только в случае истинности каждой переменной. Таким образом, решение задачи распадается на решение двух равенств:
НЕ А = 1<span>. Это значит, что А = 0, т.е. первая буква имени должна быть гласной. Это имена под номерами 1) и 4).</span>
НЕ В = 1<span>. Это означает, что В = 0, т.е, третья буква имени должна быть согласной. Это условие выполняется только в имени Анна под номером.</span>
<span>Ответ: 4.</span>
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s=s.Inverse then Writeln('Палиндром')
else Writeln('Не палиндром')
end.
<u>Примеры</u>
мадам
Палиндром
аргентинаманитнегра
Палиндром
12345654231
Не палиндром