Форум программистов, компьютерный форум, киберфорум
Наши страницы
Другие языки программирования
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Михаил8888
0 / 0 / 0
Регистрация: 04.05.2017
Сообщений: 43
1

Перевести из паскаля в кумир

13.12.2017, 00:26. Просмотров 775. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i, n: integer; 
  s: real;
 
begin
  write('n = '); 
  read(n); 
  s := 0; 
  for i := 1 to n do 
    s := s + 1 / (Sqr(i)); 
  writeln('s = ', s); 
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2017, 00:26
Ответы с готовыми решениями:

Перевести программу из паскаля в кумир
var ar: Array Of Real; i, j: Byte; k, n, m: Integer; mult:...

Перевести программу из паскаля в кумир
Var a: array of integer; i, k, max: integer; begin k:=1;for i:=1 to 10 do...

Перевести программу из паскаля в кумир
Program z1; uses crt; const nmax=20; var n,x,s,y,p,i:integer; A:array ...

Перевод с Паскаля на КуМир
var st: string; i: integer; begin readln(st); for i:=1 to...

Перевод из паскаля в кумир
Помогите перевести на кумир, пожалуйста! program E6; var a, b: integer; ...

1
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,281
13.12.2017, 10:07 2
Лучший ответ Сообщение было отмечено Михаил8888 как решение

Решение

Код
алг
нач
цел n,i
вещ s 
вывод "Введите n="
ввод n
s:=0
нц для i от 1 до n
s:=s+1/i/i
кц
вывод s
кон
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2017, 10:07

Перевод с Паскаля на Кумир - программирование
var a : array of integer ; n,i,k:integer; begin randomize; write('Введите...

[КуМир] Квадраты и кубы
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11,...

[КуМир] Двумерные массивы. Снова
Получить массив В(3), перемножая элементы 1-й строки и 2-го столбца матрицы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru