1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
Ответ 16. _________будут вопросы пишите
If(a[i] div 100 = 0) and (a[i] div 10 <> 0) then s:= s+a[i];
S := exp(ln(-sqrt(156,374) * ln(n)) * 1/3)
<u>Периферийные устройства компьютера.</u> Периферией называются все внешние дополнительные устройства, подключаемые к системному блоку компьютера через специальные разъемы.По назначению периферийные устройства можно подразделить наустройства ввода данных;устройства вывода данных;устройства хранения данных;устройства обмена данными.Устройства ввода данныхКлавиатура;Мышь, трекбол или тачпад;Джойстик;Сканер;Графический планшет (дигитайзер).
<u>Внутреннее устройство компьютера.</u> <span>Когда говорят о внутреннем устройстве компьютера, обычно имеют в виду те компоненты, которые находятся внутри его корпуса.
</span><span>1. Системная плата
</span><span>2. Процессор
</span><span>1. Блок питания
</span><span>2. Оперативная память
</span><span>4. Видеокарта
</span><span>5. Сетевая карта
</span>6. Звуковая карта
<span>7. Жесткий диск
</span><span>8. Оптический привод
</span>9. Блок питания<span>
как то вот так! =)</span>