Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
триста восемьдесят девять миллиардов,триста шестьдесят пять миллионов, четыреста две тысячи, двести один.
только 25-18=7 человек
только французский 27 - 18 = 9 человек
ну а на вопросы не отвечу =))
1)
s : = 0;
for i : = 1 to k do
begin
if i mod 2 < > 0 then
s: = s + i;
end;
2)
for i : = 5 to 55 do
writeln(i);
3)
s : = 1;
for i : = n to m do
s: = s * i;
4)
for i : = 10 to 15 do
обрамления там везде одинаковые
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
if a[i] < a[min] then
min : = i;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
end.
Популярные вопросы