2) Dim A as integer (объявление переменной)
A=val(Console.ReadLine()) (ввод переменной)
If a mod 2 = 0 then
Writeline =(" Чётное")
else
Writeline = ("Нечётное")
Я в другом языке программирую, но если такой вариант пойдёт, могу остальные дописать. <span />
Ну думаю я правильно сделал, как я понял твою просьбу
<span>var n,s,i:integer;
begin
write('n = '); readln(n);
if n mod 2 = 0 then n:=n+1;
s:=0;
for i:=1 to 7 do
begin
s:=s+n;
n:=n+2;
end;
writeln('s = ',s);
end<span>.
Пример:
</span><span>n = 10
s = 119</span></span>
1) CD-ROM
2) 1. тактовая частота микропроцессора
<span> 4. объем оперативной памяти</span>
У моєму домашньому комп'ютері є такі пристрої: відеоката (використовується наприклад для ігор), куллер (запобігае перегріванню комп'ютера), батарейка на материнській платі (для того щоб не збивалася дата та час).