Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal real https://www.cyberforum.ru/ pascal/ thread983657.html
подскажите как записать, у меня было задание по массивам, я записал ответ например p: real; и условие у меня было p:=p*(A+B); когда я получаю ответ, у меня выходит дробное число, как его убрать? мне...
Pascal Функции и процедуры
нужно вычислить
Pascal найти суму в паскале https://www.cyberforum.ru/ pascal/ thread983609.html
S=1/x+1/x^2+1/x^4+1/x^8+1/x^16+...
Pascal Вычислить значения функций F1(x) и F2 (x) Вычислить значения функций F1(x) и F2 (x) таким образом, чтобы результаты были сформированы в виде трех одномерных массивов (x, F1(x) и F2 (x)). Вывести полученные массивы в виде таблицы вида: ... https://www.cyberforum.ru/ pascal/ thread983606.html
Определить общее количество пятерок и количество двоек Pascal
известны оценки по химии каждого ученика класса. определить общее количество пятерок и количетсво двоек
Pascal Подсчитать количество неположительных чисел, стоящих на местах, кратных 4 Дан одномерный массив из N элементов. В соответствии с вариантом напишите плз программу. Вычислить сумму квадратов чисел, больших заданного С; подсчитать количество неположительных чисел, стоящих... https://www.cyberforum.ru/ pascal/ thread983584.html
Pascal Известна масса Известна масса каждого из 12 предметов. Определить массу самого легкого предмета. https://www.cyberforum.ru/ pascal/ thread983582.html Комплексные числа Pascal
Задание: Составить требуемые подпрограммы работы с комплексными числами (сложение, вычитание, умножение, деление). Используя эти подпрограммы, определить действительную и мнимую части числа ω...
Pascal Найти среднее арифмитическое положительных элементов даны массивы x,y. массив x из 8 элементов, а y из 5 элементов.Найти среднее арифмитическое положительных элементов.Использовать подпрограммы. https://www.cyberforum.ru/ pascal/ thread983558.html Pascal Циклические операторы. Условные циклы https://www.cyberforum.ru/ pascal/ thread983413.html
Найти наибольшее положительное целое число n, для кого выполняется условие: -4n+84\sqrt{n}+3\geq 0 Помогите написать через for...to...do Добавлено через 2 часа 49 минут помогите пожалуйста...:-/
Pascal Вычислить произведение чисел, больших заданного D
Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3; подсчитать также количество чисел, не равных заданному Х. Помогите пожалуйста решить
Pascal Не пишет в txt файл program textstandart; var z: integer; x: integer; f: text; fi: text; begin assign(fi, 'input.txt'); https://www.cyberforum.ru/ pascal/ thread983296.html
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
22.10.2013, 04:14 0

При вводе числа в диапазоне от 0 до 50 программа должна выдать сообщение о количестве слоников(с правильным окончанием) - Pascal - Ответ 5216767

22.10.2013, 04:14. Показов 1001. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Rayngard как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  k: integer;
begin
  repeat
    write('Ââåäèòå ÷èñëî îò 0 äî 50: ');
    readln(k);
  until k in [0..50];
  write(k,' ');
  if k=0 then write('íè îäíîãî ñëîíèêà') else
    if k in [11..14] then writeln('ñëîíèêîâ') else
    case k mod 10 of
      1   : writeln('ñëîíèê');
      2..4: writeln('ñëîíèêà');
      else  writeln('ñëîíèêîâ');
    end;
  readln;
end.


Вернуться к обсуждению:
При вводе числа в диапазоне от 0 до 50 программа должна выдать сообщение о количестве слоников(с правильным окончанием) Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2013, 04:14
Готовые ответы и решения:

Программа запросит у пользователя его возраст и должна вывести "вам столько-то лет" с правильным окончанием
Программа запросит у пользователя его возраст и должна вывести "вам столько-то лет" с правильным...

Пользователь вводит 10 чисел программа должна выдать 2 максимальных(берём от 1 до 10,если выпадает 2 10,то программа должна выдать 2 10,а не 10,9)
#include <iostream> using namespace std; int main () { int number, largest_1, largest_2,...

Составить программу отыскивающую в двухмерном числовом массиве A(N,M) минимальное из чисел, если такого числа нет программа должна выдать сообщение
Составить программу отыскивающую в двухмерном числовом массиве A(N,M) минимальное из чисел, если...

Программа должна сгенерировать 2 случайных числа в диапазоне от 2 до 9
Здравствуйте! я только начинаю изучать азы Си подскажите пожалуйста! Задача такая: программа...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2013, 04:14

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Выдать сообщение при вводе точки в TextBox
Подскажите пожалуйста. как написать код , чтобы при написание точки в TextBox1 выдавалось...

Почему при вводе числа программа работает нормально, а при вводе буквы уходит в бесконечный цикл?
void mainmenu() { cout << "Введи число" << endl; cin >> choice; if (choice == 1) { cout <<...

При вводе числа в строке и нажатии ENTER выдать значение YES
Добрый вечер! Мне на завтра задали написать задачу на Паскале. Помогите решить, пожалуйста! ...

При вводе цифр и букв вместе, программа должна выдавать ошибку
Проблема в следующем... Мне нужно, чтобы программа выдавала ошибку, если я введу что-то подобное...

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