var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.
А) лук, выращиваемый на грядке
Вход:
Вода
Выход:
плод, корни.
Извиняюсь если ответ не правильный ( особбенно пояснение!)
Uses System;
var x: real;
{ процедура функция }
function y( x: real): real;
var a,b,c: real;
begin
a:=2.8; b:= -0.3; c:=4;
if x<1.2 then Result:=a*Sqr(x)+b*x+c
else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1)
else Result:=a/x+Sqrt(x*x+1);
end;
{ основная программа }
begin write('Задайте значение x ');
readln(x);
writeln('Значение функции y = ',y(x));
end.
<span>
</span>
1+2+3+4+5+6+7+8*9=100
1+2*3+4+5+67+8+9=100
12-3-4+5-6+7+89=100
Как я тебя понял, языки программирования это C1 и Java