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

Задание 2. Составьте программу, которая находит сумму, разность, произведение и частное двух чисел х и у. Все действия написать
последовательно в одной программе

👇
Ответ:
savchenko29
savchenko29
25.05.2023

Program prog;

Uses crt;

var a,b: integer;

begin

clrscr;

write('A = ');

readln(a);

write('B = ');

readln(b);

writeln;

writeln(a, '+', b,'=',a+b);

writeln(a, '-', b,'=',a-b);

writeln(a, '*', b,'=',a*b);

writeln(a, '/', b,'=',(a/b):0:3);

end.

4,6(58 оценок)
Ответ:
Ирина1895031
Ирина1895031
25.05.2023

судя с условия вроде так

x = int(input())

y = int(input())

sum = x + y

difference = x - y

multiply = x * y

dividion = x / y

print("Сумма" + " " + str( sum))

print("Разность" + " " + str(difference))

print("Произведение" + " " + str( multiply))

print("Частное" + " " + str( dividion))

4,4(37 оценок)
Открыть все ответы
Ответ:
Margarita11mm
Margarita11mm
25.05.2023
1. Типовой "школьный" вариант
// PascalABC.NET 3.0, сборка 1076
var
  s,a1,a2,a3:string;
  p:integer;
begin
  s:='22 33 444';
  p:=Pos(' ',s);
  a1:=Copy(s,1,p-1);
  Delete(s,1,p);
  p:=Pos(' ',s);
  a2:=Copy(s,1,p-1);
  Delete(s,1,p);
  a3:=s;
  Writeln(a1,#13#10,a2,#13#10,a3)
end.

Результат выполнения программы:
22
33
444

2."Современный" вариант
// PascalABC.NET 3.0, сборка 1076
begin
  var s:='22 33 444';
  var m:=s.ToWords;
  var a1:=m[0];
  var a2:=m[1];
  var a3:=m[2];
  Writeln(a1,#13#10,a2,#13#10,a3)
end.

Результат выполнения программы:
22
33
444
4,7(42 оценок)
Ответ:
Antyan11
Antyan11
25.05.2023
Var N,M,R,S:Array[1..20] of integer; i,min,q,k,max:integer;
begin 
Randomize;
max:=-200; min:=200;
writeln('1 массив');
for i:=1 to 20 do begin
N[i]:= random(100)-50;write(N[i]:4);end;writeln;
writeln('2 массив');
for i:=1 to 20 do begin
M[i]:= random(100)-50;
write(M[i]:4);end;writeln;
writeln('массив Суммы');
for i:=1 to 20 do begin
S[i]:= N[i]+M[i];
if max < S[i] then begin
max:=S[i];q:=i;end;
write(s[i]:4);end;
writeln;
writeln('массив Разности');
for i:=1 to 20 do begin
R[i]:= N[i]-M[i];
if min > S[i] then begin
 min := S[i];k:=i;end;
write(R[i]:4);end;writeln;
writeln('максимальный ' , max, ' его индекс ',q);
writeln;writeln('минимальный ' , min, ' его индекс ',k);
end.
4,7(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ