Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
uses crt;
const n=3;
var i,s:integer;
k:string;
a:array[1..10] of integer;
begin
repeat
clrscr;
s:=0;
writeln('Задйате стаж работы в анкеты ');
for i:=1 to n do begin
write('Анкета ', i,': '); readln(a[i]);
if a[i]>=5 then inc(s)
end;
writeln('По реузльтатам подходят ', s,' анкеты');
writeln('Повторить - Enter. Выход - любой символ + Enter');
readln(k);
until k<>''
end.
Зависит от языка и типизации, применённой в нём. По логике, будет возвращено вещественное число, потому что вещественный тип рассматривается как более широкий по отношению к целому, а деление на вещественное число подразумевает только операцию вещественного деления, а не целочисленного.
В Лего можно фантазировать бесконечно,очень много деталей и они разных цветов,похоже на реальную жизнь.