Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.62/21: Рейтинг темы: голосов - 21, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 17.02.2012
Сообщений: 17

вывести из числа диапазона 200 до 400 и их произведения

17.02.2012, 19:44. Показов 4818. Ответов 21
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
паскаль вывести из числа диапазона 200 до 400 и их произведения
обязательно на до использовать цикл (For)
заранее спасибо О_о
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.02.2012, 19:44
Ответы с готовыми решениями:

Множества. Вывести все целые числа из диапазона 1..200 в определенном виде
В возpастающем поpядке напечатать все целые числа из диапазона 1..200, пpедставленные в виде n^2+m^2, где n, m >=0 Очень надеюсь на...

Вывести все четные и нечетные числа из диапазона диапазона от А до В включительно
Помогите решить: Вывести все четные и нечетные числа из диапазона от А до В включительно. Решить...

Среди целых чисел байтового диапазона, превышающих 200, найти числа, делящиеся на 3 или 7
Среди целых чисел байтового диапазона, превышающих 200, найти числа, делящиеся на 3 или 7, но не на обе эти цифры.

21
0 / 0 / 0
Регистрация: 17.02.2012
Сообщений: 17
17.02.2012, 21:45  [ТС]
Студворк — интернет-сервис помощи студентам
мне нужно отдельно произведения
200*202,200*204,200*204 и так далее
извините коряво ставлю вопросы
0
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
17.02.2012, 22:05
а так будет выводится в типе real

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  i: integer;
  j: real;
begin
  for i:=200 to 400 do
  write(i,', ');
  writeln;
 
  i:=200;j:=200;
  while j<400 do
  begin
    j:=j+2;
    writeln(i,' * ',j:3:0,' = ',i*j:3:0);
  end;
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.02.2012, 22:05

Найти сумму чисел от 200 до 400
Решить с for, repeat, while Составить программу, которая выводит на экран сумму чисел от 200 до 400

Залить окно текстурой 400 на 200
Здравтсвуйте. Подскажите, как залить окно текстурой так, чтобы при растягивании окна справа добавлялись новые элементы текстуры, а не...

Вывести на экран только нечетные целые числа из диапазона от 0 до заданного числа
Напишите программу, которая бы выводила на экран только нечетные целые числа из диапазона от 0 до, указанного пользователем, числа.

Даны два целых числа A и B (A < B). Вывести все числа из диапазона [A; B], удовлетворяющие заданному критерию
Даны два целых числа A и B (A &lt; B). Вывести все числа из диапазона , удовлетворяющие заданному критерию. а) Число имеет ровно три...

Вывести на экран те числа из интервала [10 .. 1000], которые меньше произведения цифр десятичной записи числа
Написать программу: среди чисел от 10 до 1000,найти и вывести на экран те, которые меньше произведения цифр десятичной записи этого числа....


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

Или воспользуйтесь поиском по форуму:
22
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru