Решите какое-либо Задание!

Question

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

Answer 1

40

borian22

26 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: