program lol;
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
*проверил в паскале
Верного ответа из данных нет. В D2 должно выходить 3 для верной диаграммы.
Var
a:integer;
begin
write('Введите число ');
readln(a);
if (a div 1000 = a mod 10) and ((a div 100)mod 10 =(a div 10)mod 10)then
writeln('Палиндром')
else writeln('не Палиндром');
end.
1.Н<span>а четвертом месте стоит один из символов X, Z, Y. - <em><u>да</u></em>
2. </span><span>На третьем месте – гласная буква (Y, E), если четвертая буква согласная, или любая согласная, если четвертая гласная - <em><u>да</u></em></span>
3. <span>На втором месте – одна из букв Z, Y, X, V, не стоящая в слове на первом или четвертом месте. - <em><u>не проходит </u></em></span><em><u>1)</u></em> V<em><u>Z</u></em>Y<em><u>Z</u></em>
4. <span>На первом месте – любая согласная буква, не стоящая на третьем месте - <u /><u /><em><u>не проходят 2 и 4</u></em><em><u /></em><u /><em><u /></em><em /><em><u /></em> <em><u>Y</u></em>VEZ, <em><u>Z</u></em>V<em><u>Z</u></em>Y </span>
Остается только 3) VYYZ