4)Укажите истинное утверждение. а)Одно и то же письмо нельзя переслать нескольким адресатам одновременно. - id1261591420200421 от AliAlinka2006 21.04.2020 08:37

Question

Информатика: 4)Укажите истинное утверждение. а)Одно и то же письмо нельзя переслать нескольким адресатам одновременно. б)Одно и то же письмо можно одновременно переслать нескольким адресатам. 5)Определите источник информации в ситуации, когда школьник читает текст в учебнике. а)школьник, б)учебник . 6)Какое средство передачи информации было изобретено раньше других?а) Телеграф, б)Электронная почта, в)Телефон ПРОЙТИ ТЕСТ.

AliAlinka2006 · Accepted Answer

Var a,b:longint;
function sum (n:integer):integer;
var s:integer;
begin
s:=0;
while (n<>0) do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
if sum(a) > sum(b) then
writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
else if sum(b) > sum (a) then
writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
readln;
end.

MOGZ ответил