Напишите программу, которая для трех случайных чисел выводит на экран ответ на следующий вопрос: правда ли, что первое число равно сумме второго и третьего. ответ должен быть выведен в виде -
221
443
Ответы на вопрос:
Var i,d: integer; n: array[1..3] of integer; begin writeln('введите диапазон( от 0 до '); readln(d); randomize; for i: = 1 to 3 do beginn[i]: =random(d+1); writeln(n[i]); end; if n[1]= n[2]+n[3] then writeln('yes') else writeln('no'); end.
1) //pascalabc.net //версия 3.3, сборка 1611 begin write(range(readinteger('a='),readinteger('b='(x-> x mod 4=0).; end. 2) //pascalabc.net //версия 3.3, сборка 1611 begin write(range(10,99).where(x-> (x mod 10)+(x div 10)=10).aggregate(real(,y)-> x*y)); end. 3) //pascalabc.net //версия 3.3, сборка 1611 begin write(range(10,99).where(x-> ((x mod 10)+(x div 10)) mod 5=0).; end.
Популярно: Информатика
-
dimentor1306.02.2023 08:10
-
natali261312.02.2022 21:39
-
ChemistKNO313.10.2021 12:52
-
Apelsinka03222.11.2020 13:04
-
Nuraika77723.04.2022 19:09
-
lemoneslaphia07.11.2021 07:10
-
ralina2709.08.2020 07:05
-
masha119518.01.2023 06:44
-
Софи1234567890я04.10.2020 19:38
-
ArhangelTYT15.06.2022 00:58