3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.
===== PascalABC.NET
begin
var s := 0.0;
for var i := 1 to ReadInteger('n =') do
s += 1 / Sqrt(i);
Println(s)
end.
1)выделить текст
2)нажатием правой кнопкой нажать копировать
3)открыть нужный файл нажать правую кнопку и нажать вставить
Проверь соединение с жестким диском , порядок загрузки в биосе.
Ответ:
ок не буду))))))))))))))))))