Var a,b,c: integer;
begin
writeln('a,b = '); readln(a,b);
c:=a+b;
writeln(c);
end.
Var n, a, b, c, d: integer;
begin
writeln('Введите четырёхзначное число');
readln(n);
a:=n div 1000; {первая цифра}
b:=(n div 100) mod 10; {вторая цифра}
c:=(n div 10) mod 10; {третья цифра}
d:=n mod 10;{четвёртая цифра}
if (a+d) = (b+c) then write('верно')
else write('неверно');
end.
Ответ:
Объяснение:
Замечание: Там где int divisor = 1, должно быть 2
300 грамм -- 100%
х грамм -- 3%
x=9 грамм - 1 гном
50%(половина) = 150 грамм
150/9=16,7≈17 человек сьедает половину яблока
300-(17*9)=147 грамм вес оставшегося яблока
Program isch;
Varx,y,z,k,n:integer;
Begin
x:=2;y:=3;k:=1;n:=8;
if (k<=n) then
begin z:=3*y+4*x+1;
x:=y;
y:=z;
k:=k+1;
end;
writeln('z=',z, ' x=',x, ' y=',y, ' k=',k);
<span>end.
Делал строго по алгоритму...</span>