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

Впрограмме «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций и порядок действий соответствуют правилам арифметики. определите значение пере-менной a после выполнения алгоритма: а : = 4 b : = 3 b : = 9 + а * b a : = b - 5 * a в ответе укажите одно целое число — значение переменной a.

👇
Ответ:
Б = 9+4*3= 21
а = 21-5*4= 1
ответ : а=1
4,5(63 оценок)
Открыть все ответы
Ответ:
alimbekoffniki
alimbekoffniki
09.02.2022

1)var

a:array[1..5]of integer;

i,n,s:integer;

begin

 writeln('Введите кол-во элементов');

 readln(n);

 writeln('Введите число');

 s:=0;

 for i:=1 to n do begin

   read(a[i]);

   if a[i]>0 then s:=s+a[i]

 end;

 writeln('Сумма положительных элементов массива равна ', s)

end.

2)var

a:array[1..10]of integer;

i,n,P:integer;

begin

 writeln('Введите число элементов');

 readln(n);

 writeln('Введите число');

 P:=1;

 for i:=1 to n do begin

   read(a[i]);

   if a[i] mod 6 = 0  

   then P:=P*a[i]

 end;

 writeln('Произведение элементов массива кратных 6 равна ',P)

end.

3)var

a:array[1..5]of integer;

n,i:integer;

begin

 writeln('Введите кол-во элементов');

 readln(n);

 writeln('Введите число');

 for i:=1 to n do begin

   read(a[i]);

   if a[i]>0 then begin

   a[i]:=a[i]*3;

   writeln('Новый элемент равен: ',a[i])

 end;

 if a[i]<=0 then begin

   a[i]:=a[i]+5;

    writeln('Новый элемент равен: ',a[i])

 end;

 end;

end.

Буду рад если отметишь мой ответ как лучший

4,4(61 оценок)
Ответ:
CatyX8
CatyX8
09.02.2022
Program n1;
var x: integer;
begin
    writeln('Введите число');
    readln(x);
    if (x mod 10 = 5) or (x mod 10 = -5) then
        writeln('Число оканчивается на 5')
    else
        writeln('Число не оканчивается на 5');
end.

program p2;
var x, y, sum: integer;
begin
    writeln('введите число');
    readln(x);
    if ((x >= 10) and (x <= 99)) or ((x <= -10) and (x >= -99)) then
        writeln('является двузначным')
    else
        writeln('не является двузначным');
    y := abs(x);
    sum := 0;
    while (y <> 0) do
        begin;
        sum := sum + (y mod 10);
        y := y div 10;
        end;
    if sum = 8 then
        writeln('сумма цифр равна 8')
    else
        writeln('сумма цифр не равна 8');
end.
4,4(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ