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

Напишите на языке паскаль программу :

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

↓

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

anonimno3

28.10.2021 22:48

Бросают игральный кубик, на гранях которого числа от 1 до 6. Чему равна вероятность, что выпадет число меньше 6? ответ введите в виде несократимой дроби, например 3/5...

Bossak

07.03.2020 16:12

Напишіть програму для обчислення периметра прямокутника зі сторонами a=5, b=8...

uikyky

23.01.2021 16:59

Информатика. только 6 номер: напишите программу отображающую n треугольников. n принимает число от 1 до 9...

14Dana14

01.04.2021 07:38

Задание 1: Например, в вашем каталоге расположены следующие файлы: 1test 2test afile1 afile2 bfile1 file file1 file10 file2 file3 Вопрос 1: Укажите, какие имена файлов...

bbb70

01.12.2022 23:27

Найдите сумму первых 100 натуральных чисел (написать программу, которая бы выполнила эту )....

BRB987

03.04.2020 21:39

Найти произведение всех чётных чисел от 1 до 50. написать программу, которая решила бы эту ....

ніка2007

29.03.2021 07:13

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

zhenyafedorisch

29.03.2021 07:13

Решить в ! даны пять чисел, каждое из которых по модулю не превышает ста. вычислить максимум среди отрицательных из них....

spanielskubidu1

11.07.2021 01:53

Оцените информационный объём (в килобайтах) цветного рисунка (256 цветов) размером 600 х 540 точек....

mandarin50

11.07.2021 01:53

Будь ласка ійте виписати цитати до образу чіпки буду вдячнаа))...

Ответ:

8огонь8

20.07.2020 21:52

Var a, y, r1,r2,r3 : integer;
begin
readln(x);
readln(y);
r1 := x-y;
r2 := x*x+10;
r3 := r1/r2;
writeln(r3);
end.

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

Ответ:

Stasburlakov

20.07.2020 21:52

Var x,y,r:real;
begin
readln(x);
readln(y);
r:=(x-y)/(x*x+10);
writeln(r);
end.

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

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

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