Ответ:
Все, кроме 3. А вообще все зависит от вируса.
Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
<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
Не парься,поймешь,это временно)))там свой принцип,спраси у информатички)
Program OddNumeric;
var
n, i: integer;
a: array [1..3] of byte;
b: boolean;
begin
Write('Введите трехзначное число: ');
Readln(n);
a[1]:=n div 100; {1 цифра сотен}
a[2]:=(n div 10) mod 10; {2 цифра десятков}
a[3]:=n mod 10; {3 цифра количество единиц}
b:=false;
for i:=1 to 3 do
begin
if (a[i] mod 2)=0 then
b:=true;
end;
if b then
Writeln('В этом числе есть четные цифры')
else
Writeln('В этом числе нет четных цифр');
end.