М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
g1122611
g1122611
05.11.2020 19:22 •  Информатика

2. что будет выведено на экран в результате выполнения фрагмента программы цел a=5, b=3 вывод 'a,=z(', b, ')' 3. что будет выведено на экран в результате выполнения фрагмента программы цел a=5, b=3 вывод 'z(a)=', '(b)' 5. запишите оператор для вывода значений целых переменных a=5 и b=3 в следующем формате: 5+3=? в команде должен быть только один пробел после слова вывод. 6. запишите оператор для вывода значений целых переменных a=5 и b=3 в следующем формате: z(5)=f(3) в команде должен быть только один пробел после слова вывод. 7. запишите оператор для вывода значений целых переменных a=5 и b=3 в следующем формате: a=5; b=3; в команде должен быть только один пробел после слова вывод.

👇
Ответ:
zlpa
zlpa
05.11.2020
2)a,=Z(3)
3)Z(a)=(b)
5)вывод a,'+',b,'='
6)вывод 'Z(',a,')=F(',b,')'
7)вывод 'a=',a,';b=',b,';'
4,5(67 оценок)
Открыть все ответы
Ответ:
sonya20067
sonya20067
05.11.2020
Program abc;Const  n=3;  m=3;Var  a:array[1..n,1..m] of integer;  b,y,i,j,sum:integer;  srd:real;  Begin  Writeln('Введите числа массива: ');    For i:=1 to n do      For j:=1 to m do      Begin        Write('a[',i,',',j,']= ');        Readln(a[i,j]);        if a[i,j]>0 then           begin             sum:=sum+a[i,j];            inc(b);          end         else          If a[i,j]<0 then            Inc(y);       End;     If sum>0 then      begin       srd:=sum/1      b;      Writeln('Среднее =',srd);      end      else      Writeln('Нет положительных членов массива');     If y>0 then      begin       Writeln('Количество отрицательных элементов =',y);      end      else      Writeln('Нет отрицательных членов массива');End.
4,5(26 оценок)
Ответ:
nadya5745
nadya5745
05.11.2020
Var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    while i < 7 do
    begin
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    end;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    repeat
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    until i >= 7;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    n := n + (n + 1) mod 2;
    s := 0;
    
    for i := 1 to 7 do
    begin
        s := s + n;
        writeln(n);
        n := n + 2;
    end;
    
    writeln(s);
end.
4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ