1. дан массив r[7]. найти произведение элементов данного массива. 2. дан массив из n элементов. определить количество элементов, которые являются нечетными числами.
#include <iostream>using namespace std; int main() { //1 задача int R[7]; int res = res[0]; for (int i = 1; i < 7; i++) res *= res[i]; //тут результат res; //2 задача quantity = 0; for (int i = 0; i < n; i++){ if (arr[i] % 2 != 0) quantity++; } //тут результат quantity;}
Var n, amount, max_digit, copy_of_n: integer; begin read(n); copy_of_n := n; amount := 0; max_digit := copy_of_n mod 10; while copy_of_n <> 0 do begin {Находим наибольшую цифру в числе} if max_digit < copy_of_n mod 10 then max_digit := copy_of_n mod 10; copy_of_n := copy_of_n div 10; end; copy_of_n := n; while copy_of_n <> 0 do {Считаем количество таких цифр} begin if copy_of_n mod 10 = max_digit then amount := amount + 1; copy_of_n := copy_of_n div 10; end; writeln(amount); end.
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var m:=ReadInteger('m=').ToString.ToSortedSet; var n:=ReadInteger('n=').ToString.ToSortedSet; if m.Intersect(n).Count>0 then Writeln('Есть одинаковые цифры') else Writeln('Нет одинаковых цифр') end.
Тестовые решения: m= 12345 n= 76840 Есть одинаковые цифры
m= 123456 n= 789087 Нет одинаковых цифр
А вот примерно так почему-то заставляют писать эту же задачу в школах:
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 var i,m,n:integer; found:boolean; sm,sn:string; begin Writeln('Введите через пробел два натуральных числа: '); Read(m,n); Str(m,sm); Str(n,sn); found:=False; for i:=1 to Length(sm) do if Pos(sm[i],sn)>0 then begin found:=True; break end; if found then Writeln('Есть одинаковые цифры') else Writeln('Нет одинаковых цифр') end.
Тестовое решение: Введите через пробел два натуральных числа: 5354353 111211 Нет одинаковых цифр
int main() { //1 задача int R[7]; int res = res[0]; for (int i = 1; i < 7; i++) res *= res[i]; //тут результат res; //2 задача quantity = 0; for (int i = 0; i < n; i++){ if (arr[i] % 2 != 0) quantity++; } //тут результат quantity;}