Войти Регистрация Спроси ai-bota

Program pr_1;
var
x,y,sum, umn: integer;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
sum:=x+y;
umn:=x*y;
writeln ('sum=",sum);
writeln ('umn=", umn);
readln;
end.

x-37
y-38

Нажмите на рекламу ниже и сразу увидите ответ

↓

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

МахмудШар

01.07.2020 11:54

Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b – целые числа), перемещающую...

ProPython

01.07.2020 11:54

Написать программу, которая запрашивает у пользователя 2 натуральных числа. если сумма чисел меньше или равна 100, то выводит слово мало , если сумма чисел больше 100 - много...

ppn01012014

16.11.2021 20:34

Напишите программу , которая в последовательности натуральных чисел определяет максимальное число , кратное 5. программа получает на вход количество чисел в последовательности...

narik2222

16.11.2021 20:34

Найти произведение чисел от k до n не кратных 3...

2005nastyabereza

05.12.2022 10:03

Чертёжнику был дан для исполнения следующий алгоритм: повтори 2 раз команда1 сместиться на (3, 2) сместиться на (2, 1) конец сместиться на (–6, –4) после выполнения этого алгоритма...

olga195888

05.12.2022 10:03

Вывести на экран латинский алфавит в прямом порядке от a до z(красным цветом) и обратном порядке от z до a (желтым цветом). используйте цикл for...

fnnifnnr

05.12.2022 10:03

Если можно объясните как это для какого из значений числа х истинно высказывание: не(х 6)и(х 7)?...

12.02.2023 10:33

1) исполнитель калькулятор имеет только две команды, которым присвоены номера: 1. умножь на 22. вычти 2 выполняя коhgманду номер 1, калькулятор умножает число на экране на 2,...

aarianna

22.11.2021 18:15

По теме программирование. по заданным сторонам прямоугольника a и b вычислите его периметр и площадь , экзамен скоро....

Kokos5424

22.11.2021 18:15

Паскаль. написать программу которая выводит таблицу квадратов первых 5 четных чисел вводимых с клавиатуры...

Ответ:

FunLayn1

12.10.2020 05:02

sum=75

umn=1406

Program pr_1;varx,y,sum, umn: integer;beginwrite ('x=');readln (x);write ('y=');readln (y);sum:=x+y;

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку