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

Написать программу,которая запросит у пользователя два числа и одине из знаков : + - * / и выведет на экран результат соответствующего арифметического действия. .

👇
Ответ:
steamenigasteam
steamenigasteam
09.01.2022
Program z1;
var a,b:real;
c:char;
begin
read(a,b,c);
if c='+' then writeln(a+b) else
if c='-' then writeln(a-b) else
if c='*' then writeln(a*b) else
if c='/' then writeln(a/b) else
writeln('символ не арифметического действия');
end.
4,4(39 оценок)
Ответ:
nat102sult
nat102sult
09.01.2022
Program ABC;var A,B,C:real;D:char;beginwrite ('Введите знак операции ');read (D);write ('Введите два числа ');read (A,B);case D of'+' : C:=A+B;'-' : C:=A-B;'*' : C:=A*B;'/' : C:=A/B;end;writeln (C);end.
4,5(99 оценок)
Открыть все ответы
Ответ:
nik22041
nik22041
09.01.2022

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

procedure LocationPrint(x, y: real);

begin

 if x = 0 then

   if y = 0 then Writeln('Начало координат')

   else Writeln('Ось Y')

 else

 if y = 0 then Writeln('Ось X')

   else

 if x > 0 then

   if y < 0 then Writeln('Четвертая четверть')

   else Writeln('Первая четверть')

     else

 if y < 0 then Writeln('Третья четверть')

 else Writeln('Вторая четверть')

end;


begin

 loop 2 do

 begin

   var (x, y) := ReadReal2('Введите координаты x и y:');

   LocationPrint(x, y)

 end

end.

4,4(14 оценок)
Ответ:
vangok31
vangok31
09.01.2022

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var n:=ReadInteger('Количество строк (столбцов) в матрице:');

 Writeln('*** Исходная матрица ***');

 var a:=MatrRandom(n,n,-99,99);

 a.Println(4);

 Println(4*a.ColCount*'-');

 var i:=ReadInteger('Укажите номер столбца (счет от 1):');

 if i.InRange(1,a.ColCount) then

 begin

   var col:=a.Col(i-1);

   Println('Сумма элементов столбца',col.Sum,'max=',col.Max)

 end

 else

   Println('Недопустимый номер колонки')

end.


Дана матрица n x n, вывести элемент i-го столбца, найти их сумму и max элемент. код программы на язы
4,7(55 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ