Задание:
Задача№1. Найти произведение цифрзаданного трехзначного числа. Задача№2. Вычислить выражение y=cos (1)+cos (1/2)+cos (1/3)+… +cos (1/n) , где n вводить с клавиатуры. Задача№3. Даны действительные числа а 1, а 2… аn. Определить наименьший нечетный элемент массива. Вариант №7. Задача№1. Даны два действительных числа х и у. Вычислить их произведение и частное. Задача№2. Вычислить выражениеу=1/2*2/3*3/4*4/5*… *n/ (n+1) , где n вводится с клавиатуры. Задача№3. Даны действительные числа а 1, а 2… аn. Определить произведение элементов массива, стоящих на четных местах. Задача №4. Вычислить сумму четных элементов одномерного массива до первого встречного нулевого элемента.
Решение:
1.uses crt; var n: string; beginread (n); writeln (strtoint (n[1])*strtoint (n[2])*strtoint (n[3]); end.2.uses crt; var n,i: integer; res: double; beginread (n); for i: =1 to n dores: =res+cos (1/i); writeln (res: 5:3); end.3.uses crt; var n,i: integer; mult: real; a: array[1… 100] of real; beginmult: =1; writeln ('Input N and elements of array.'); read (n); for i: =1 to n dobeginread (a[i]); if i mod 2=0 then mult: =mult*a[i]; end; writeln (mult); end.4.uses crt; var n,i,sum: integer; a: array[1… 100] of integer; beginwriteln ('Input N and elements of array.'); read (n); for i: =1 to n doread (a[i]); i: =1; while (a[i]<>0) and (i <= n) dobeginif a[i] mod 2=0 thensum: =sum+a[i]; i: =i+1; end; writeln (sum); end.
Знаете другой ответ?