1. Информатика
  2. плс кто знает как сделать

плс кто знает как сделать программу в паскале Напиши программу на Паскале для решения следующей задачи. Даны два числа b и c. Если числа равны, то замени каждое из них произведением b*c, иначе - числом 30.

24556 24556    3   19.05.2021 20:17    0

Ответы
vvv76 vvv76  18.06.2021 20:19

Var

b, c:integer;

Begin

Readln(b, c) ;

If b=c then

b:=b*c;

c:=b*c;

Else

b:=30;

c:=30;

Writeln(b, c);

End.

Объяснение:

Вот так

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
doncov2001 doncov2001  01.03.2020 16:16
Выпиши из ряда чисел 1-4; 4,5; 0; 2; 1 2;35; - 2,3 5а) Целые отрицательные числаб) Целые числав) Неположительные числа ​...
Саша08092005 Саша08092005  01.03.2020 16:12
Https://sun9-22.userapi.com/c206716/v206716846/8a22c/xJ1akRbWAMg.jpg...
Динара010 Динара010  26.07.2019 08:20
Какой смысл имеет результат s этого алгоритма, если x=125 a: = x div 100 b: = x mod 100 div 10 c: = x mod 10 s: = a+b+c...
Oksanaa11 Oksanaa11  19.06.2020 09:56
Дано множество D={7,13,25,34,101,112}. Какие из приведенных множеств являются подмножествами множества D а) {1,7,13}; б) {0,1,12}; в) {25, 112, 34}; г) {a, b, c, n}; д) {7,13,25,34,101,112}....
Алёна280104 Алёна280104  18.06.2020 22:04
Написать ответ и подробно разобрать решение, в том числе для подобных заданий var a,b,t,M,R: longint;function F(x:longint):longint;begin if (x div 4 =21-x div 4) then F:=...
mariyavlasova2 mariyavlasova2  18.06.2020 22:05
Выполнить сжатие информации методом RLE Выполнить вручную кодирование сообщения методом RLE. В качестве исходной фразы взять текст из таблицы. С таблицы CP-1251 перевести...
FireLily FireLily  18.06.2020 22:07
­ прямоугольник на экране, в котором содержится информация (4) букв...
irushkanet irushkanet  18.06.2020 22:13
Дана числовая последовательность: {a_1=0,а_2=4,а_n=a_(n-1)-3a_(n-2)… } Найти сумму отрицательных членов последовательности при n = 25...
Элис6666666666 Элис6666666666  18.06.2020 22:13
Python Вывести разность квадратов чисел от 22 до 88 по 1- числу в строке....
Ilyaky Ilyaky  19.06.2020 22:15
Поставщик интернета обещает вам скорость интернета 80Мб в сек., запустив загрузку файла 80МБ за какое время он качается( указать количество секунд)?​...

Популярные вопросы