Очень нужно пожалуйста!!!!вводится числа до той поры,пока не будет введено число 1.Определить четность каждого из них.

Знания

Информатика

1 ответ:

Squaze Squaze [1]4 года назад

0 0

Попробую накидать прямо здесь. Компилятора нет под рукой, поэтому проверь, если что не так, то скажи.

======
program xaza ;
var n : integer ;
begin
n := 0 ;
while n <> 1 do begin
write ('vvedi chislo n=' ) ;
readln ( n ) ;
if ( (n mod 2) = 1 ) then write ( 'NE ') ;
writeln ( 'chetnoe' ) ;
end ;
end.

Читайте также

Есть алгоритм нужно перевести в систему паскаль вариант 1

Dmitry1neof

//Pascal
//var 1
var i:integer;
s:real;
begin
readln(s);
for i:=1 to 5 do s:=s+(sqr(s)+i)/i;
writeln(s);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Задача по теме "итерационные циклы"под корнем 2+sinx /(без корня)x+cosxХнач.=0,2 Хкон.=1 S=0,2

Sergei2013

Program Zadacha;
Const Xmin = 0.2; Xmax = 1; S = 0.2;
Var fx, x: Real;
i: Integer;
Begin
x := Xmin;
i := 0;
While x <= Xmax Do
Begin
fx := Sqrt(2 + Sin(x)) / (x + Cos(x));
x := x + S;
i := i + 1;
WriteLn('f(x', i, ') = ', fx:5:5);
End;
ReadLn;
End.

0 0

1 год назад

Запишите значения элементов массива, сформированного следующим образом. for I :=1 to 7 do a [ i ] := i*i-4

your april [31]

A[1]=-3
A[2]=0
A[3]=5
A[4]=12
A[5]=21
A[6]=32
A[7]=45

0 0

4 года назад

Как сделать хороший bat файл на компе дам 10 баллов

Бахтин Алексей [50]

Создаёшь txt файл,вписываешь в него нужные наборы выполнения команд и меняешь расширение на bat

0 0

4 года назад

Определить количество положительных элементов в каждой строке двумерного массива P (4,5)

Александр 00485

Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
end.

0 0

4 года назад

Прочитать ещё 2 ответа