Прошу с 3 . они весьма легкие, но сейчас уже не имею не возможности, не сил их выполнять, ибо комп вообще весьма далеко. буду за решения! программа в pascale 1. дано n целых чисел. найти среднее арифметическое. 2. вывести первых n целых чисел кратных 7. 3. вводится последовательность чисел пока не введен 0. найти количество четных чисел в наборе.

241

259

Посмотреть ответы 2

Ответы на вопрос:

Psix007

Информатика

4,6(85 оценок)

Уменя тоже комп далеко, поэтому пишу программы прямо на телефоне! ; -) и вот, что получилось (все результаты проверены): program first; type arr = array of integer; var a : arr; i, p, l : integer; f : real; begin writeln('вводите числа (0 - окончание ввода)'); i: =1; l : =0; repeat readln(p); if p=0 then break; setlength(a, i); a[i-1]: =p; i: =i+1; l: =l+1; until p=0; p: =0; for i: =0 to l-1 do p: =p+a[i]; f: =p/l; writeln(f: 5: 2); end. program second; var p, i : integer; begin write('введите количество чисел: '); readln(p); for i: =1 to p do write(7*i, ' '); end. program third; var count, p : integer; begin writeln('вводите числа'); count : =0; repeat readln(p); if p=0 then break; if (p mod 2 = 0) then count: =count+1; until p=0; writeln ('было введено ', count, ' чётных чисел.'); end.

Gutlock

Информатика

4,8(57 оценок)

При условии что кроме пробелов и точек других символов или цифр нету, т.к. в о них не сказано: #include < algorithm> #include < iostream> using namespace std; int main() { string s; cout < < "enter string: "; getline(cin, s); for (auto i : s) { if (i == '.') { cout < < count_if( s. s. [](auto c) { return c ! = ' ' & & c ! = '.'; } ) < < endl; } } return 0; }