√13= 3.60555128
√14 = 3.74165739
√13.14= 3.62491379
Никогда, никогда не составляйте программу для тех задач, которые можно решить математически!
У нас первое число 5, последнее 50, количество чисел 50/5 = 10.
Имеем сумму арифметической прогрессии:
(5 + 50)/2 * 10 = 275.
Ответ: 275.
Var
m: array [1 .. 16] of integer;
i,countMin: integer;
begin
for i := 1 to 16 do
begin
randomize;
m[i] := random(100);
if(m[i] <10) then
countMin:=countMin+1;
end;
writeln('Исходный массив');
for i := 1 to 16 do
writeln('m[', i, ']=', m[i], ' ');
writeln("Количество элементов <10",countMin);
readln;
end.
1) возгорание (перегрев устройства)
2) удар током (ногами провода дрык, дык)
3) убийство (динозаврик выскочит на тебя из монитора в игре)
Program gt;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
if((i*10+j)mod(i*j)=0)then writeln(i,j);
<span>end.
2)
program gt;
var a,b,c,k:integer;
begin
k:=0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if(a=3*c)then k:=k+1;
writeln(k);
<span>end.</span></span>