Ответ:
Объяснение:
program N1;
var a, b: integer;
begin
readln(a, b);
if (a div 10 + a mod 10) > (b div 10 + b mod 10) then
writeln ('Сумма цифр ', a, ' больше')
else
writeln ('Сумма цифр ', b, ' больше');
end.
Var b, k, t: integer;
begin
for b:=0 to 10 do
for k:=0 to 20 do
begin
t:=100-(b+k);
if(20*b+10*k+t=200) then
writeln('Быков ' ,b,' коров ' , k,' телят ' ,t);
end;
end.
Результат:
Быков 1 коров 9 телят 90
1)-горе
2)-страус
3)-кресло
4)-Михаил
5)-Марина
var
a,b: real; // координаты точек
r: real; // расстояние между точками на прямой
begin
write('Введите координату точки a: ');
readln (a);
write('Введите координату точки b: ');
readln (b);
r := abs(a-b);
writeln('Расстояние между точками = ' ,r);
end.
1) он круглый как шар, он крутится как юла, эго съедает компьютер.
Ответ: диск
2) мы ходим в неё как домой, а людей в ней любим как родителей.
Ответ: школа
3) Мышка, но не живая.
Ответ: мышь