Пользователь вводит слова или числа (целые или вещественные) через пробел. вывести на экран количество чисел в строке. например: ввод - "3,14 число 5 или 17", вывод - "3".кумир ( или рус - не принципиально)
procedure get_num(var m: bignum; var n: integer); var i := 0; s: string; begin write('Введите число = '); readln(s); s := trim(s); n := 0; for i := length(s) downto 1 do if s[i] in ['0'..'9'] then begin n := n + 1; m[n] := strtoint(s[i]); end; end;
function more(a, b: bignum; n_a: integer): boolean; var i: integer; f := false; begin for i := n_a downto 1 do begin if a[i] > b[i] then f := true else if a[i] < b[i] then f := false; if a[i] <> b[i] then break; end; more := f; end;
procedure show(m: bignum; n: integer); var i: integer; begin write('Вывод '); for i := n downto 1 do write(m[i]); writeln(); end;
begin get_num(a, n_a); get_num(b, n_b);
while (n_a >= n_b) and more(a, b, n_a) do begin if (a[n_a] > b[n_b]) then k := n_a - n_b else if n_a > n_b then k := n_a - n_b - 1 else k := 0;
for i := 1 to n_b do begin a[i + k] := a[i + k] - b[i]; if a[i + k] < 0 then begin for j := i + k to n_a - 1 do begin if a[j] >= 0 then break; a[j] := a[j] + 10; a[j + 1] := a[j + 1] - 1; end end; end; if a[n_a] = 0 then n_a := n_a - 1; end;
#include <iostream>
using namespace std;
int main() {
int s = 0;
for(int i = 1; i < 101; cout << i << ' ', s+=i, i+=2);
cout << endl << s << endl;
}
2)
#include <iostream>
using namespace std;
int main() {
int n, k = 0;
cin >> n;
for(int i = 0; i < n; i++) {
int number;
cin >> number;
if(number % 2 == 0) k++;
else k--;
}
if(k > 0) cout << "Четных" << endl;
else if (k < 0) cout << "Нечетных" << endl;
else cout << "Одинаково" << endl;
}
3)
#include <iostream>
using namespace std;
int main() {
for(int i = 20; i < 51; i++)
if(i % 3 == 0 && i % 5 != 0) cout << i << endl;
}
4)
#include <iostream>
using namespace std;
int main() {
for(int i = 35; i < 88; i++)
if(i % 7 == 1 || i & 7 == 2 || i % 7 == 5) cout << i << endl;
}