HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

  #11  
Старый 17.12.2009, 20:09
Vish
Banned
Регистрация: 12.06.2009
Сообщений: 8
С нами: 8902451

Репутация: 1
По умолчанию
Цитата:
Сообщение от Thenno  
Код:
program PoraSamomuUchitsya;
var
  i,k:integer;
begin
  k:=0;
  i:=100;
  while i<=1000 do
    begin
      k:=k+i;
      i:=i+25;
    end;
  writeln (k);
end.
Самый оптимальный алгоритм, я думаю.
Ему нужно вообще то, чтобы выводилась сумма элементов делящихся на 25

А ты что сделал? Вот ему писали на делфи https://forum.antichat.ru/showthread.php?p=1753598#post1753598

Вообще не пойму, в чём проблема переделать на паскаль? Делфи это и есть обджек паскаль

Паскаль на компе не стоит, но вот, должно работать:
Код:
program PoraSamomuUchitsya;
var
a:array[1..1000] of integer;
i,s:integer;
begin
for i:=1 to 900 do begin
	a[i]:=99+i;
	if a[i] mod 25=0 then begin
	s:=s+a[i];
	end;
	end;
  writeln (s);
end.
Последний раз редактировалось Vish; 17.12.2009 в 20:17..
 
Ответить с цитированием
 



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2569 10.05.2026 13:27
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.