Var
i, s: integer;
begin
s := 0;
for i := 15 to 25 do s := s + sqr(i);
Writeln('s=', s)
end.
Тестовое решение:
s=4510
***********************************
const
n = 10;
var
i, k: integer;
a: array[1..n] of integer;
begin
Randomize;
k := 0;
Write('Массив данных: ');
for i := 1 to n do
begin
a[i] := Random(26);
Write(a[i]:3);
if a[i] > 12 then k := k + 1
end;
Writeln(#13#10, 'k=', k)
end.
Тестовое решение:
Массив данных: 0 21 20 8 14 15 25 11 2 20
k=6
В программе подсчитывается количество двухзначных чисел, которые делятся на 7 без остатка (14, 21, ... , 98)
<span>1. Каким служебным словом начинается программа? B) begin
2. Какое слово используют для описания переменных величин в программе? B) var
3. Каким символом разделяют команды в программе? A) точка с запятой;
4. Какие из перечисленных слов могут быть именами пользователя? D) Е6.
5. Какую команду используют для ввода данных? A) read;
6. Какие из приведенных команд вывода данных записаны правильно? C) write(‘y =’,y);
7. Данные логического типа можно описать как: A) boolean;
8. Каков результат вычисления выражения 45 mod 4? A) 1; B) 2; C) 3; D) 4. </span><span>
25 должно быть
9.В скольких позициях будет выведено значение переменной х при использовании формата вывода х:6:3? D) 6.
10. Какие из записей закона всемирного тяготения (F = ) на языке программирования являются правильными?B) F:=g*m1*m2/(r*r);
11. Данные, значения которых являются действительными числами можно описать как: B) double; </span>
Int maxvalue=0;
int arrays[n];
int main (void) {
for ( int i = 0; i < n; i++ ) {
if (arrays[n]>maxvalue){maxvalue=n;<span>}
}
return maxvalue;
}
_____________________________________________________________
int n=0;
</span>int maxvalue=0;
int minvalue=65536;<span>
int arrays[n];
</span>int main (void) {
while (arrays[n++]!=0) {
if (arrays[n]>maxvalue){maxvalue=arrays[n];}
if (arrays[n]<minvalue){minvalue=arrays[n];}
}
return (minvalue-maxvalue);
}
1)Через сеть интернет либо съемные носители 2)Размножался в системе, выполнял нагрузку на цп до 100% 3)Удалил с помощью антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы