1) Первое задание:
var a: integer;
begin
write ('Введите число: ');
readln (a);
if (a mod 2 = 0) then
writeln ('Четное число')
else writeln ('Не четное');
readln;
end.
2) Второе задание:
program test;
var a: integer;
begin
write ('Введите число: ');
readln (a);
if a > 0 then
a:= a + 1;
if a < 0 then
a:= a - 2;
if a = 0 then
a:= 10;
writeln (a);
end.
Разбор
<span>можно наше число сделать ближайшим четным: (N div 2) * 2 А потом прибавим 2. =) </span>
Условие:
<span>Дано целое число n. Выведите следующее за ним четное число. При решении этой задачи нельзя использовать условную инструкцию if и циклы</span>
1+2=3 (2)
3^2=9(1)
9^2=81(1)
81+2=83(2)
83+2=85(2)
Ответ:21122
2) бит/с переведем в кбайт/с.
кбайт/с.
Время передачи:
1) 20% от 8 мбайт - это 8 * 0,20 = 3,2 мбайт
Вывод:
способ 1 быстрее на 595,4 секунды.
Uses CRT, GraphABC;
Var d,m,x,y:integer;
xx,yy,t,a:real; n,k:integer;
Const
xo=320; yo=240;
Begin
a:=0;
for n:=1 to 20 do begin
t:=0;
for k:=1 to 6280 do begin
xx:=200*cos(t);
yy:=80*sin(t);
x:=round(xo+(xx*cos(a)-yy*sin(a)));
y:=round(yo-(xx*sin(a)+yy*cos(a)));
PutPixel(x,y,white);
t:=t+0.001;
end;
a:=a+pi/20;
end;
End.