Program p1;
var sr,sr1:real;
p,i:integer;
begin
Write('Введите число учащихся: ');
Readln(p);
sr:=0;
sr1:=0;
for i:=1 to p do
begin
Write('Введите средний балл ученика: ');
readln(sr1);
sr:=sr+sr1;
end;
Writeln('Средний балл группы равен: ',sr/p);
<span>end.</span>
Ответ:
Подходящая? Я считаю что можно поставить до GTX 1060 3 GB или RX 580 4 GB. В YouTub'е много тестов показаны для этих видеокарт. GL
2)
39=100111
3)
11010=26
4)
0.75=0.11
5)
1011+101=10000
1100+11=1111
Var x, n, m, f, s: integer;
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.