1. 1 2 3 4
(WiFi как радиоволна, плюс dialup)
2. 2 3 4 5
3. 1 4 5
4. 1 3
6. 1 2 3 5
(Сис админ не обязан разрабатывать ПО)
Не трундая задача. Приступим.
Пусть а - первое число, б - второе число, с - третье число.
Четное число - 2n
If (a+b+c) div 2 = 0 then writeln ('Их сумма четное число') else writeln ('Их сумма нечетное число');
Dim a as double
dim n as double
dim c as double
a=(textbox1.text)
n=(textbox2.text)
c=(a+1)n
(textbox3.text)=c
Program Z_n;
var a:array[1..10] of byte;
i:byte;
Begin
writeln;
Randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2)=0 then a[i]:=a[i]+1;
end;
writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.