//Pascal ABC.NET 3.1 сборка 1256
Var
a,b:integer;
begin
read(a,b);
writeln(((a div b)*a+(b div a)*b)/((a div b)+(b div a)));
end.
Пример ввода:
8
5
Пример вывода:
8
Const n=20;
var sum:integer;
i:byte;
begin
sum:=0;
i:=1;
repeat
sum := sum + i;
i := i+1;
until (i=n);
end.
Все правильно) ///////////
Ответ:
program tt;
uses wincrt;
var
chislo,a,b,c:integer;
begin
ClrScr;
writeln('Введите число:');
readln(chislo);
a:=chislo div 100;
b:=(chislo mod 100) div 10;
c:=chislo mod 10;
if (a=b) or (a=c) or(b=c) then
writeln('Есть!')
else
writeln('Нет!');
readln;
end.
Объяснение: