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.
Задание 1:
program prog;
var x,a,z:real;
begin
write('Введите а кг груш и х стоимость этого количества (через пробел): '); readln(a, x);
write('Введите z кг груш, стоимость которой надо посчитать: '); readln(z);
write('Стоимость ', z:0:1, ' кг груш равна ', z*x/a:0:2);
end.
Задание 2:
У вас скорее всего ошибка в задании, т.к. на входе есть переменная a, а в формуле она отсутствует. Я предположил, что она на первом месте стоит.
program prog;
var a,b,c:real;
begin
write('Введите a, b и c черезпробел: '); readln(a,b,c);
write('3a²-b³:c²+4 = ', 3*sqr(a)-exp(3*ln(b))/sqr(c)+4:0:2);
end.
