Есть ответ 👍

Напишите программу, которая для трех случайных чисел выводит на экран ответ на следующий вопрос: правда ли, что первое число равно сумме второго и третьего. ответ должен быть выведен в виде -

221
443
Посмотреть ответы 2

Ответы на вопрос:


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.

Популярно: Информатика