Program keke;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
For i:= 1 to n do
readln(a[i]);
FOr i:= 1 to n do
a[i]:=a[i]+3;
for i:= 1 to n do
writeln(a[i]);
readln;
end. <span>
</span>
Var
i, a: byte;
begin
Randomize;
for i:=1 to 3 do write(Random(101):4);
<span>end.</span>
import random #Добавляем модуль для рандомного числа
x=0
a=random.randint(1,100) #Создаем это число в промежутке 1<=a<=100
while x<10:
b=int(input('число: '))
if b>a:
print("Меньше!")
elif b<a:
print('Больше!')
elif b==a:
print('Вы угадали!')
break
x+=1
print('Это число: ' + str(a))
Алг а1
нач
вещ первое, второе
ввод первое, второе
вывод первое/второе
кон
<em><u>Тестовое решение:</u></em>
>> 01:12:23 - Новая программа* - Выполнение начато
16.5 3
5.5
>> 01:12:34 - Новая программа* - Выполнение завершено
алг а2
нач
цел число1, число2, число3, произведение
ввод число1, число2, число3
произведение:= число1*число2*число3
если произведение <50 то
вывод 10*число1,", ",10*число2,", ",10*число3
иначе вывод произведение
все
кон
Тестовое решение:
>> 01:18:48 - Новая программа* - Выполнение начато
4 2 3
40, 20, 30
>> 01:18:59 - Новая программа* - Выполнение завершено
>> 01:20:19 - Новая программа* - Выполнение начато
5 6 7
210
>> 01:20:23 - Новая программа* - Выполнение завершено