Var a:array[1..1000] of integer;
<span>sum,n,i:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>writeln('Введите количество чисел'); </span>
<span>read(n); </span>
<span>writeln('Введите числа'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum); </span>
<span>end.</span>
Информатика тоже не маловажный урок.Если внимательно слушать учителя,то можно не только стать в будущем программистом но и знать в компьютере что делать?как делать?
На уроках дети работают на компьютерах двоечники-хулиганы пользоются этим и вечь урокпросижывают за компьютерас и играми.Но кто то мог стать руководителем по информатике.Ну что же учитесь,ведь вся жизнь впереди!
Сперва разберёмся, какие значения может принимать каждая переменная:
i, k: integer - целые числа
x, y: real - дробные и целые числа
n: char - один символ
z: Vremia_God - Win, Spr, Sum или Otm.
Опираясь на это, получаем следующий ответ:
1-f,d
2-a,e
3-a,e
4-a,c,e
5-b
6-a,c,e
A * b * g = c примерно так и ответ