Внимательно прочитайте приметы каждой примете поставьте в соответствие органы чувств обеспечивающие - id416758220211210 от Leshik1997 10.12.2021 11:16

Question

Информатика: Внимательно прочитайте приметы каждой примете поставьте в соответствие органы чувств обеспечивающие человека соответствующими данными

Leshik1997 · Accepted Answer

1) var a,b:integer;
begin
readln(a,b);
writeln('Сумма единиц: ',a mod 10+b mod 10);
writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10);
end.

2)var a:integer;
begin
readln(a);
if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2');
if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3');
if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5');
end.

3)var a,b,c:integer;
begin
readln(a);
c:=a;
while a>0 do begin
b:=10*b+a mod 10;
a:=a div 10;
end;
writeln(c-b);
end.

Внимательно прочитайте приметы каждой примете поставьте в соответствие органы чувств обеспечивающие человека соответствующими данными

MOGZ ответил