var n,a,k1,k2,i:integer;
begin
write('Введите количество вводимых чисел: ');
readln(n);
for i:=1 to n do
begin
write('Введите ',i,' числo: ');
readln(a);
if a mod 2 = 0 then k2:=k2+1
else k1:=k1+1
end;
writeln ('Количество четных чисел: ',k2);
writeln ('Количество нечетных чисел: ',k1)
end.
А что сделать то? Вы вопрос правильно сформулируйте!
Program z2;Var a,b,c:integer; SA:real;Begin write('Введите 1-ое число: '); readln(a); write('Введите 1-ое число: '); readln(b); write('Введите 3-ье число: '); readln(c); SA:= (a + b + c) / 3; writeln('Сумма: ', SA);End.
Sub Zadanie24891339()
A = CDbl(InputBox("A = "))
B = CDbl(InputBox("B = "))
if A > B then
c = A
A = B
B = c
end if
MsgBox "A=" & A & " B=" & B
End Sub
Zadanie24891339