Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
Ну если надо поменять единицы на сотни, то может получиться так:
var
a: integer;
begin
readln(a);
writeln((a div 10) * 10 + (a div 100));
end.
программу написала в паскале, надеюсь подходит))
var s1,s2: string;
begin
writeln('Введите 2 слова:');
readln(s1);
readln(s2);
if s1[length(s1)]=s2[1]
then writeln('второе слово начинается с той же буквы, которой оканчивается первое слово')
else writeln('последняя буква первого слова отличается от первой буквы второго слова');
end.
Var n, i: integer;
begin
readln(n);
for i := 1 to n do
if (i mod 2 = 1) then
writeln(i);
<span>end.</span>