Решите какое-либо 1.напишите программу,которая в последовательности - вопрос №14292901 от lgep08jle 02.06.2023 20:42

Question

Информатика: Решите какое-либо 1.напишите программу,которая в последовательности целых чисел определяет количество четных отрицаетльных чисел. программа получает на вход целые числа, количество введеных чисел неизвестно,последовательность чисел заканчивается числом 0(0- признак окончания ввода,не входит в последовательность. количество чисел не превышает 1000.введеные числа по модулю непревышают 30000. программа должна вывести одно число количество четных отрицательных чисел. входные данные -1 7 2 -6 0 выходные

lgep08jle · Answer

1) Program pr;uses crt;Var a,k,k1:integer;BeginWriteln( Введите a );readln(a);k1:=1;k:=0;While (a 0) and (k1 1000) doBeginif (a 0) and (a mod 2=0) and (abs(a) =30000) then k:=k+1;k1:=k1+1;readln(a);end;Writeln( k= ,k);readln;end.   2)Program pr;uses crt;Var a,k,k1:integer;BeginWriteln( Введите a );readln(a);k1:=1;k:=0;While (a 0) and (k1 1000) doBeginif (a 0) and (a mod 2 0) and (abs(a) =30000) then k:=k+1;k1:=k1+1;readln(a);end;Writeln( k= ,k);readln;end....