Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Нати все трехзначные числа кратные 50 Найти все трехзначные числа,кратные 50.. Всем спасибо... https://www.cyberforum.ru/ turbo-pascal/ thread773472.html Turbo Pascal Работа с файлами произвольного доступа
Даны результаты соревнований по футболу в виде названий команд,забитых и пропущенных мячей в каждой игре.Определить количество очков,набранных каждой командой(0-поражение;1-ничья;2-победа).Предусмотреть ввод и удаление данных,просмотр в порядке занимаемых мест,поиск количества очков по названию команды.
Turbo Pascal Написать программу которая вычисляет формулу К^N.(В степени) Числа K и N задаются пользователем с клавиатуры.. https://www.cyberforum.ru/ turbo-pascal/ thread773443.html
Написать программу которая вычисляет формулу К^N.(В степени) Числа K и N задаются пользователем с клавиатуры.. Заранее спасибо..
Turbo Pascal Объект с базовым типом вектор и производным матрицей.Нужно лишь несколько советов https://www.cyberforum.ru/ turbo-pascal/ thread773441.html
Необходимо произвести скалярное умножение двух векторов и суммирование матрицы. Пытался делать,но начались проблемы с выковыриванием значений из полей,я в них совсем запутался. uses crt; const nmax=30; Type VArray=array of Integer; VMatrix=array of VArray; Vectors=object A:VArray; ASize:byte;
Turbo Pascal Определить сколько по каждому виду занятий девушек и мальчиков
Для каждого студента известны: Ф.И.О,номер группы,пол и форма занятий физкультурой (основная группа,подготовительная группа,освобожден). Разработать проект позволяющий : а)вводить и редактировать данные,с сохранением в файле. б)осуществлять выборку данных по Ф.И.О,полу,форме занятий. в)определить сколько по каждому виду занятий девушек и мальчиков г)выводить результаты на экран.Правила...
Turbo Pascal Создание массивов Создание массивов одинаковым размером с помощью генератора случайных чисел Запускаю программу в турбо паскале - почему-то выводятся одинаковые массивы. Эту же программу запускаю в паскале ABC - получаются разные массивы. Почему так? Uses crt; const n=10; Type mas=array of integer; Var A,C:mas; Procedure Vvod(var A:mas; n:integer); Var i:integer; Begin randomize; https://www.cyberforum.ru/ turbo-pascal/ thread773428.html
Turbo Pascal работа с файлами произвольного доступа Дан произвольный двумерный числовой массив фиксированной размерности. Разработать проект позволяющий: а) заполнять массив и сохранять данные в файле; b) осуществлять поиск максимального значения в каждой строке и минимального значения в каждом столбце и их вывод. https://www.cyberforum.ru/ turbo-pascal/ thread773412.html Turbo Pascal экспертные оценки продукции имеют десять пунктов . На комиссию представлены следующие показатели которой были приведены в таблицу
Экспертные оценки продукции имеют десять пунктов . на комиссию представлены следующие показатели которые были приведены в тавлицу
Turbo Pascal Данное натуральное число N и действительные, не равны нулю числа a1, ., aN https://www.cyberforum.ru/ turbo-pascal/ thread773383.html
Данное натуральное число N и действительные, не равны нулю числа a1, ..., aN с различными дробными частями. Найти в последовательности a1, ..., aN ближайшее к какому-нибудь целому, используя только элементарные арифметические операции (+, -, *, /) и не используя массивы.
Turbo Pascal Данное натуральное число N и действительные числа a1, ., aN. Не используя массивы получить min (a1, ., aN) https://www.cyberforum.ru/ turbo-pascal/ thread773377.html
Данное натуральное число N и действительные числа a1, ..., aN. Не используя массивы получить min (a1, ..., aN).
Компиляция для х64. Как? Turbo Pascal
Привет всем. Это мой первый пост в вашем уютненьком уголке=) Помогите плиз с турбо паскалем. Проблема в том, что после написания программы я нажимаю скомпилировать, но .exe не работает при запуске. Требует версию для х64. Видимо компилируется для х32. У меня Win7 x64. Пользуюсь Turbo Pascal School Pak
Turbo Pascal даны итоги аттестации по нескольким предметам.разработать проект https://www.cyberforum.ru/ turbo-pascal/ thread773367.html
Даны итоги аттестации по нескольким предметам.Разработать проект: А)осуществлять ввод,удалямых данных,их просмотр Б) поиск результатов по ф.И.О в)выборку неуспивающих студентов,отличников и ударниковПравила форума п. 5.5: Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также дублировать тему в одном разделе.
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
28.01.2013, 13:52 0

Вывести на экран все двузначные числа,кратные 11 и найти их сумму - Turbo Pascal - Ответ 4062416

28.01.2013, 13:52. Показов 8214. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var
  i: Byte;
  s: Integer;
BEGIN
For i:=10 to 99 do
If i mod 11=0 Then
begin
  Write(i,' ');
  s:=s+i;
end;
Writeln;
Writeln('Сумма = ',s);
END.


Вернуться к обсуждению:
Вывести на экран все двузначные числа,кратные 11 и найти их сумму Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.01.2013, 13:52
Готовые ответы и решения:

Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму
Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму Добавлено через 5...

Перебрать все двузначные числа и вывести на экран только те...
в записи которых цифры отличны, вывести их количество.

Вывести на экран все двузначные числа и одновременно суммы их цифр.
Вывести на экран все двузначные числа и одновременно суммы их цифр. Помогите пожалуйста

Вывести на экран все двузначные числа, произведение цифр которых больше n.
1)Заданное натуральное число n. Вывести на экран все двузначные числа, произведение цифр которых...

3
28.01.2013, 13:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2013, 13:52
Помогаю со студенческими работами здесь

Получить все двузначные числа, кратные 3, определив функцию, позволяющую распознавать простые числа.
Напишите пожалуйста решение!СПАСИБО! Получить все двузначные числа, кратные 3, определив функцию,...

Вывести на экран все кратные числа заданным
Ребята помогите программу через процедуру записать Даны натуральные числа А и В. Вывести на экран...

Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.

Вывести на экран все положительные двузначные нечетные числа, сумма цифр которых в диапазоне 10.16
Вывести на экран все положительные двузначные нечетные числа, сумма цифр которых в диапазоне 10..16

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru