Program zadacha;
var a,b,c,s,p: integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
s:=a+b+c;
p:=a*b*c;
writeln ('Сумма равна ',s);
writeln ('Произведение равно ',p);
end.
<span>Python
n = 50# 50 чисел
suma = 0# сума равна 0
for i in range(0,n+1):</span># цикл чисел от 1 до 50<span>
suma += i </span># початкову суму додаємо все числа<span>
print(i) </span># вивод чисел от 1 до 50<span>
print("suma "+ str(suma)) </span># вивод суми всех чисел
Program chislo;
uses crt;
var
a:integer;
begin
writeln('Введите число : ');
readln(a);
if((a Div 100)>(a Mod 10)) then
writeln('Да')
else
if((a Div 100)<(a Mod 10)) then
writeln('Нет')
end.
Если n - натуральное число, то
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
1.Step.Select(n->2*n+3).TakeWhile(a->a<100).Println
end.
<u><em>Результат:</em></u>
5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99
Если Python, то вот:
import random
a = random.randrange(1,11)
b = random.randrange(1,11)
c = random.randrange(1,11)
d = a * b * c
print("Ответ = " +str(d))