const N = 10;
var
a: array[1..N] of integer;
i: integer;
begin
write('До замены: ');
for i := 1 to N do begin
a[i] := random(100);
write(a[i], ' ');
end;
writeln;write('После замены: ');
for i := 1 to N do begin
if(a[i] mod 2 = 0)then a[i] := a[i] * (-1);
write(a[i], ' ');
end;
end.
Var N, a, b: integer;
begin
readln(N);
a := N div 5;
N := N mod 5;
b := N div 2;
WriteLn(a, 'x5, ', b, 'x2, ', N mod 2, 'x1');
<span>end.
Вот так, делением можно)</span>
Ответ:
В большинстве случаев доклады и их планы в презентациях не используются.
Чаще всего на них показывают наглядные графики и 2-3 предложения к ним.
Я считаю, что вариант 4 будет правильным.
<em>MS DOS QBasic 1.0</em>
CLS
INPUT "a,b,n "; a, b, n
s = n * (a * 100 + b)
PRINT s \ 100; "rub"; s MOD 100; "kop"
<u>Пример</u>
a,b,n ? 18,45,16
295 rub 20 kop