Блог для маленьких школьников и их родителей
ШколаЛа

СРОЧНО. информатика Паскаль. помогите со всеми заданиями пожалуйста.​

Автор:
Предмет: Информатика
Уровень: 10 - 11 класс

СРОЧНО. информатика Паскаль. помогите со всеми заданиями пожалуйста.​

Ответов к вопросу: 1
  • burkirina38
    17.07.2024 | 13:51

    Ответ:
    1. program aaa;
    var
     a,b,c : integer;
     y : real;
     begin
      writeln(‘Ввод данных : ‘);
      read(a,b,c);
      y := (sqr(a+b+c))/(a + b) — (2*sqrt(a*b)/(b-c));
      writeln(y);
     end.

    2.
    program aaa;

    var
     x,y,i,sum,j: integer;
     begin
       read(x,y);
     for i := x + 1 to y — 1 do
       begin
     inc(j);
     sum := sum + i;
     end;
     writeln(‘Колво : ‘,j,’ Сумма : ‘,sum);
     writeln(‘Числа : ‘);
     for i := x + 1 to y — 1 do
       write(i,’ ‘);
     end.

    3.program aaa;

    var
     ms : array [0.10] of integer;
     i,j : integer;
     
     begin
       for i := 1 to 10 do
       begin
         ms[i] := random(250);
           if (ms[i] mod 4 = 0) then
             inc(j);
       end;
       writeln(‘Количество чисел кратных 4 : ‘,j);
         
     end.

    Объяснение:

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.