Составим логическое уравнение, которое истинно только тогда, когда хотя бы одно из чисел а в с больше 0. используем оператор or: (a> 0)or(b> 0)or(c> 0) составить программу.

👇

Ответ:

204448

02.03.2020

Program p1;
var a,b,c:integer;
begin
writeln('Введите числа a,b,c');
readln(a,b,c);
if ((a>0) OR (b>0) OR (c>0)) then writeln('Условие выполнено');
end.

Такую?

4,4(2 оценок)

Открыть все ответы

Ответ:

ap1611341

02.03.2020

Объяснение:

В большинстве случаев, когда человек получает информацию, он также её обрабатывает и сохраняет

нюхая цветы получаю информацию в виде запаха, пробуя еду получаю информацию в виде вкуса, слушая лекцию получаю информацию, читая книгу получаю информацию, на мастер классах учусь новому

читаю книгу я также обрабатываю полученную информацию; слушаю лекцию я также обрабатываю полученную информацию; решая кроссворд я обрабатываю информацию, что бы решить вопрос; решая домашнее задание я обрабатываю задания; играя в игру я обрабатываю информацию, что бы делать какие-то действия.

Читая книгу я также и запоминаю прочитанное; слушаю лекцию я также запоминаю услышанное; нюхая цветы я запоминаю их запах; кушая еду я запоминаю её вкус; когда я учу стих, я запоминаю информацию

Рассказывая стих я передаю слушателям информацию; объясняя задачу я передаю информацию слушателям; общаясь с кем то я передаю информацию; уча брата говорить я передаю ему информацию; участвуя в опросе я передаю информацию

4,6(75 оценок)

Ответ:

Petersen

02.03.2020

//Pascal ABC.NET v3.0 сборка 1111

var
i,a,b:integer;
ar:array[1..10] of integer;

procedure oddDec(var a,b:integer);  //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;

procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;

begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
begin;
ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
write(ar[i]:4); //вывод
if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
  {если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.

Пример ввода:
20
10
Пример вывода:
Array:
10 16 0 60 23 4 22 -20 4 55
Final array:
0 36 -10 80 13 24 12 0 -6 75

4,4(9 оценок)

Это интересно:

Компьютеры-и-электроника

18.09.2022

Как добавить кнопку Facebook на свой сайт: шаг за шагом...

Транспорт

14.01.2023

Как избежать аварий на дороге...

Компьютеры-и-электроника

17.04.2020

Создание онлайн веб каста с помощью Windows Media Encoder...

Транспорт