Внимательно рассмотрите числа, расположенные в каждом из рядов, и определите, какое число является лишним - id366659520210601 от Kseniya006 01.06.2021 18:15

Question

Информатика: Внимательно рассмотрите числа, расположенные в каждом из рядов, и определите, какое число является лишним . зачеркни это число. 1) 2, 3, 6, 7, 11. 2) 18, 12, 3, 29, 45, 28. 3) 10, 20, 30, 36ю 40, 50. 4) 72, 62, 52, 45, 32, 82. 5) 24, 29, 22, 37, 25, 28. 6) 1, 2, 3, 5, 6, 7.

Kseniya006 · Accepted Answer

1) Program dasf;
var a,b,i,s: integer;
begin
Writeln('Введите четырёхзначное число');
readln(a);
For i:=1 to 4 do
begin
S:=a mod 10+s;
a:=a div 10
end;
writeln('Сумма цифр четырёхзначного числа:',s);
end.
2)Program sgsgsdfg;
var a,b,c,a1,b1,c1: real;
begin
Writeln('Введите а');
readln(a);
Writeln('Введите b');
readln(b);
Writeln('Введите c');
readln(c);
If (a=b) or (a=c) then a1:=a*a
else a1:=a*2;
If (b=a) or (b=c) then b1:=b*b
else b1:=b*2;
If (c=a) or (c=b) then c1:=c*c
else c1:=c*2;
Writeln('Полученные числа: а=',a1,' b=',b1,' c=',c1);
end.
3) Program afgsdg;
var n,a,b,i: integer;
begin;
Writeln('Введите число');
readln(a);
Writeln('Введите степень');
readln(n);
b:=a;
For i:=2 to n do
a:=a*b;
Writeln('Число ',b,' в степени ',n,' равно ',a);
end.

MOGZ ответил