Сумма = 0;
X=26;
ПОКА (X (< либо =)88)
{
Сумма = Сумма + X;
X = X+2
}
Program chetnoe;Uses crt;Var x:integer;BeginClrscr;Writeln ('Ведите двузначное число');Readln(x);IF X mod 2=0 then Writeln ('Число четное')else Writeln ('Число нечетное');End.
A = int(input())
if a == 2 or a == 4 or a == 6 or a == 5:
print("5")
else:
print("6")
1)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('Имеют одинаковые знаки');
if ((a>0) and (b<0)) or ((a<0) and (b>0)) then writeln('Имеют разные знаки');
if (a=0) or (b=0) then writeln('Некорректно');
end.
2) какой именно коэффициент?
1) 7, 3, 4, 10, 11, 12,16, 2
2) ASCII. Это же строка