Begin
write ('1,2,3,4,5');
end.
begin
write ('2,4,6,8,10,12,14,16,18,20');
end.
begin
write ('15,17,19,21,23,25,27,29,31,33,35');
4 цвета умещаются в 2 бита
Объем видеопамяти = 2 * 640* 480 = 614400 бит
256 цветов умещаются в 8 бит
X * Y * 8 = 614400
X / y = 1.33
x = 1.33 * y
1.33 * y * y * 8 = 614400
y*y = 57600,144
y = 240
x = 320
Ответ 320 на 240
program kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('-----------------');
writeln (' Число Квадрат');
writeln ('-----------------');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('-----------------');
end.
Progran BiFi;
Const n=10;
Var a:array[1..n] of real;
i:integer;
Begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
readln;
for i:=1 to n do begin a[i]:=a[i]*2;
writeln(a[i]);
end;
readln;
end.
# Код на ruby 2.2.3p173
def zadanie(s)
t = "9876543210"
return s == t[0..s.length-1]
end
# # # Примеры применения
p zadanie("9876")
p zadanie("98764")
p zadanie("98 764")