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

Составить программу на pascal. условие: введите число f c клавиатуры и если чило f> 3,то f-5 если f=3,то f-2 если f< 3, то f+1

👇
Ответ:
DestapTM
DestapTM
06.03.2023
Var
    f: integer;

begin
    readln(f);
    
    if f > 3 then f := f - 5
    else if f = 3 then f := f - 2
    else f := f + 1;
    
    writeln(f);
end.
4,5(48 оценок)
Открыть все ответы
Ответ:
qwetdfgdsa
qwetdfgdsa
06.03.2023

Введите а: -4

Введите b: 12

! Результат работы а: 8

Введите а: -4

Введите b: 6

! Результат работы б: 22

Введите а: 90

Введите b: 40

! Результат работы в: 70

Объяснение:

С++:

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "RUS");

int a, b, c;

//a

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

b = b + a * 2;

if (a > b)

{

 c = a + b;

}

else

{

 c = b - a;

}

cout << "Результат работы а: " << c << endl;

//б

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

a = a - b * 2;

if (a <= b)

{

 c = b - a;

}

else

{

 c = a - b;

}

cout << "Результат работы б: " << c << endl;

//в

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

a = a - b * 3;

if (a>b)

{

 c = a - b;

}

else

{

 c = b - a;

}

cout << "Результат работы в: " << c << endl;

}

4,4(43 оценок)
Ответ:
egorka22a
egorka22a
06.03.2023
// PascalABC.NET 3.2, сборка 1416 от 26.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('S=',a.ElementsByRow.Where(x->x>1).Sum)
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
   5 -40  29  34 -77  19  80
   4 -13   9  13 -37  -3 -38
 -12 -35  44 -90 -50  66 -58
 -79 -62  79  96 -36 -11  13

S=491
4,5(13 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ