Программа, которая выводит произведение чисел от 1 до 5... program sicl11; var i, p: integer; begin p:=1; for i:=1 to 5 do p := p * i; write('Произведение чисел от 1 до 5 равно ', p); readln; end.
program Z1; uses crt; var a,b,c,r,r1:real; begin writeln('Введите 1, 2 и 3 числа '); readln(a,b,c); r:=a+b+c; r1:=a*b*c; writeln('Сумма чисел: ',r); writeln('Произведение чисел ',r1); end.
Program zadanie; Var a,b,c,n:real; Begin Writeln('Задайте число'); Readln(n); Writeln('Введите 3 числа, больше заданного'); Readln(a,b,c); If (a>n) and (b>n) and (c>n) Then begin a:=a*b*c; Writeln('Произведение 3-х вводимых чисел=',a); end Else Writeln('Неверно введены числа'); End.
Var sum, k, n, i: integer; begin sum := 0; write('n: '); readln(n); for i := 1 to n do begin readln(k); sum := sum + k; end; writeln('sum = ', sum); end.
program sicl11;
var i, p: integer;
begin
p:=1;
for i:=1 to 5 do p := p * i;
write('Произведение чисел от 1 до 5 равно ', p);
readln;
end.
program xxx;
var a, b, c, s, p : real;
begin
write('введите первое число а =');
readln(a);
write('введите второе число b = ');
readln(b);
write('введите треnmt число c = ');
readln(c);
s:= a + b + c;
p:= a * b * c;
writeln('сумма чисел =', s);
writeln('произведение чисел =', p);
readln
end.
var
a : real;
sum : real;
i : integer;
begin
for i := 1 to 5 do
begin
readln(a);
sum := sum + a; //первый
end;
writeln(sum);
i := 1;
sum := 0;
while i <= 5 do
begin
readln(a);
sum := sum + a;
i += 1;
end;
writeln(sum); //второй
i := 1;
sum := 0;
repeat
readln(a);
sum := sum + a;
i += 1;
until i > 5;
writeln(sum); //третий
end.
Код PascalABC:
program Z1;
uses crt;
var
a,b,c,r,r1:real;
begin
writeln('Введите 1, 2 и 3 числа ');
readln(a,b,c);
r:=a+b+c;
r1:=a*b*c;
writeln('Сумма чисел: ',r);
writeln('Произведение чисел ',r1);
end.
Язык программирования: Pascal ABS.NET
Program composition;
Var a, b, P: integer;
begin
WriteLn ('Введите первое число');
Write ('a=');
ReadLn (a);
WriteLn ('Введите второе число');
Write ('b=');
ReadLn (b);
P:= a*b;
WriteLn ('Произведение:',P);
end.
S=1
While k:
a=int(input())
If a <=0: break
S=S*a
Print (s)
Var a,b,c,n:real;
Begin
Writeln('Задайте число');
Readln(n);
Writeln('Введите 3 числа, больше заданного');
Readln(a,b,c);
If (a>n) and (b>n) and (c>n) Then
begin
a:=a*b*c;
Writeln('Произведение 3-х вводимых чисел=',a);
end
Else Writeln('Неверно введены числа');
End.
and-логическое "и"
sum, k, n, i: integer;
begin
sum := 0;
write('n: ');
readln(n);
for i := 1 to n do
begin
readln(k);
sum := sum + k;
end;
writeln('sum = ', sum);
end.
1) Находишь наименьшее из трёх чисел.
2) Оставшиеся два числа перемножаешь.