1:
program prog;
var i,n,s,a:integer;
var chk:boolean;
begin
chk:=False;
s:=1;
write('Введите количество вводимых чисел: '); readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-е число: '); readln(a);
if i mod 2 = 0 then
begin
s:=s*a;
chk:=True;
end;
end;
if chk = False then s:=0;
write('Произведение чётных членов введённой последовательности равно ', s);
end.
2:
program fib;
var
F1,F2,n,i :Integer;
begin
write('Введите количество чисел Фибоначчи: '); readln(n);
F1:=1;
F2:=1;
For i:=1 to n do
begin
if i>2 then
begin
F1:=F1+F2;
F2:=F1-F2;
end;
write(F1, ' ');
end;
end.
битов требует изображение. Однако, можно перевести биты в байты, поделив полученное значение на 8. Мы получим значение, равное 2500 байтам.
. Т.е. глубина цвета каждого пиксела составляет 4 бита.
array [1..3] of string;
awns,mark: integer;
begin
writeln('Вопрос 1'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');
readln(awns);
// проверяем ответ
if awns = 1 then mark := mark + 1;
writeln('Вопрос 2'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');
readln(awns);
// проверяем ответ
if awns = 2 then mark := mark + 1;
writeln('Вопрос 3'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');
readln(awns);
// проверяем ответ
if awns = 3 then mark := mark + 1;
// выводим результат
writeln(' Вы ответили на ' + mark + ' вопросов из 3');
end.