Преимущества: лёгкая программируемость у асов.
Недостатки: тяжело выучить.
Var x,y,i,s:integer;
begin
s:=1;
writeln('введите числа x и y');
write('x='); readln(x);
write('y='); readln(y);
for i:=x to y do s:=i*s;
writeln('произведение чисел от ',x,' до ',y,' =',s);
end.
Пример работы:
введите числа x и y
x=2
y=5
произведение чисел от 2 до 5 =120
Пальцы должны не сильно давить на клавиатуру, иначе она сломается
#include <iostream>
using namespace std;
int main()
{
int n,m,p;
cin>>n;
int n1=n/100;
int n2=(n/10)%10;
int n3=n%10;
if (n1>n2)
if (n1>n3) {m=n1; p=1;} else {m=n3; p=3;}
else
if (n2>n3) {m=n2; p=2;} else {m=n3; p=3;}
cout<<"max="<<m<<", poz= "<<p<<endl;
system("pause");
}
program raf105;
var n,a,b,s,sum,i:integer;
begin
write('Введите количество комнат: ');
readln(n);
for i:=1 to n do
begin
writeln;
writeln('Комната №',i);
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
s:= a*b;
writeln('Площадь: ',s,' м²');
sum:= sum+s;
end;
writeln;
writeln('Общая сумма площадей всех комнат: ',sum,' м²');
end.
<u><em>Язык программирования PascalABC</em></u>