Var
x,y:real;
i:integer;
begin
y:=0;
Write('x= ');
Read(x);
for i:=1 to 11 do y:=i+y*x;
Writeln('Y= ',y)
end.
<u>Пример</u>
x=3.6
Y= 700939.22164521
var
a, d, c, k: <em>real</em>;
begin
readln(a, d, c, k);
writeln((a - (d + 21) * 2) * (c - 7 * k));
end.
Г-голубая куртка
Р-розовая куртка
Ф-фиолетовая куртка
З-золотая кепка
В-кепка в горошек
Рассмотрим все различные варианты:
ГЗ
РЗ
ФЗ
ГВ
РВ
ФВ
6 вариантов
Также эту задачу можно решить с помощью комбинаторики:
3*2=6
Ответ: 6
Включена кнопка колонки . я тоже сейчас на 5 вопросе☺
1
2
3
4
5
6
7
8
9
<span>uses
Arrays;
begin
Randomize;
var a := CreateRandomIntegerArray(ReadLnInteger('Размер массива: n='), -10, 100);
WriteLn('Создан массив случайных чисел: '); a.Writeln(' ');
for var i := 0 to a.Length-1 do if a[i] > 0 then a[i] := 0;
WriteLn('произведена замена: '); a.Writeln(' ');
end.</span>