Вообще ! найдите сумму нечётных чисел из промежутка от 11 до это надо на паскале найти среднее арифметическое - id167688120201118 от Ķрičтina 18.11.2020 17:20

Question

Информатика: Вообще ! найдите сумму нечётных чисел из промежутка от 11 до это надо на паскале найти среднее арифметическое чисел от 1 до ! тоже на паскале ! 1

Ķрičтina · Accepted Answer

1)
var
a,b,sum : integer;
begin
Readln(a, b);
if (a mod b = 0) then
begin
while a > 0 do
    begin
      sum:= sum + (a mod 10);
      a:= a div 10;
    end;
if sum > b then
    begin
    Writeln('Верно');
    halt;
    end;
end;
Writeln('Неверно');
end.

Пример:
1234 2
Верно

2)
var
i: integer;
begin
For i:= 100 to 999 do
if (i*i)mod 1000 = i then Write(i, ' ');
end.

Результат:
376 625

3)
var
i,n : integer;

function Simple(n: Longint): boolean;
var
i: Longint;
begin
for i := 2 to Round(Sqrt(n)) do
    if n mod i = 0 then
      break;
Simple := n mod i <> 0;
end;

begin
Read(n);
For i:= 1 to Round(Sqrt(n)) do
     if n mod i = 0 then
       if (Simple(i))and(Simple(n div i)) then
        begin
        Writeln('YES');
        halt;
        end;
Writeln('NO');
end.

Пример:
33
YES

Вообще ! найдите сумму нечётных чисел из промежутка от 11 до это надо на паскале найти среднее арифметическое чисел от 1 до ! тоже на паскале ! 1

MOGZ ответил