Program z1;
var s:string;
var i,n,f:integer;
var ch:char;
begin
writeln('Введите строку');
readln(s);
f:=0;
n:=length(s);
ch:=s[n];
for i:=1 to n do
if(s[i]=ch) then
f:=f+1;
if(f<>0) then
writeln('yes')
else writeln('no');
end.
Ну если это паскаль то тогда :
program a1;
var a,s,d,max : integer;
BEGIN
writeln('введите 3 числа');
readln(a,s,d);
max:=a;
if max<s then max:=s;
if max<d then max:=d;
writeln('max=',max);
<span>end.</span>
<u>1</u> 30 <u>435</u> 4060 <u>27405</u> 142506 <u>593775</u> 2035800 <u>5852925</u> 14307150 <u>30045015</u> 54627300 <u>86493225</u> 119759850 <u>145422675</u> 155117520 <u>145422675</u> 119759850 <u>86493225</u> 54627300 <u>30045015</u> 14307150 <u>5852925</u> 2035800 <u>593775</u> 142506 <u>27405</u> 4060 <u>435</u> 30 <u>1</u>
Это 30-я строка треугольника Паскаля, расчитанная онлайн на сайтеhttp://calcsbox.com/post/treugolnik-paskala.html. Жирным шрифтом с подчёркиванием выделены все нечётные цифры. Всего их 16.
Ответ: 16.
P.S. На 32-ой строчке ответ 2; на 31-ой строчке ответ 32.
Всё правильно кроме 4,7,9
4)В
7)В
9)В