Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC 10 в 100-ой степени Какой тип данных должен быть у переменных, чтобы поддерживать числа не превышающее 10 в 100-ой степени? Добавлено через 32 секунды вроде бы int64, но pascalABC его не распознает https://www.cyberforum.ru/ pascalabc/ thread398012.html	Длинные числа Pascal ABC Доброго времени суток!!!! Подскажите, как сделать программу для вычисления большого факториала: 57! 111! А то стандартная программа не работает, выдаёт ответ с Е. СПАСИБО!!!
Pascal ABC Разработать программу, которая находит все разбиения заданного числа Программу надо написать с помощью процедур. https://www.cyberforum.ru/ pascalabc/ thread397960.html	Pascal ABC Исправить ошибку-проверка корректности ввода. нужно проверить корректность ввода ФИО. пытался использовать эту конструкцию - ругается на неверное выражение( исправьте ошибку пж. var s,alph:string; begin alph:='АаБбВвГгДдЕеЁёЖжЗзИиКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя. '; //объявил допустимые символы repeat write ('Введите ФИО: '); readln(s); if s not in alph then https://www.cyberforum.ru/ pascalabc/ thread397944.html
Pascal ABC Записи Плиз помощь Определить сколько студентов родились в один день.Определить сколько студентов родились позднее 1986 года. Нам дали эти 2 задания для зачета плиз помогите кто нить...нужно очень....	Pascal ABC ошибка в модуле. https://www.cyberforum.ru/ pascalabc/ thread397931.html Добрый день! Помогите разобраться в чем ошибка?? unit podprog; interface uses tipu; procedure vvod(var n1:integer; var a1:vect; var Q1:text); procedure form_2_otr(var c1:vect; a1:vect; k1,n1:integer); procedure form_2_pol(var c1:vect; a1:vect; k1,n1:integer); procedure upor(var a1:vect; n1:integer); procedure zapic_vect(var E1:matr; a1:vect;...
Pascal ABC одномерный массив, замена чётных чисел буквой а ниже код программы который заменяет четные числа на ноль. а надо сделать так чтобы он заменял на букву: a.:wall: program albertoss; uses crt; var i,l:integer; c:real; m:array of real; begin randomize; writeln('начальный'); for i:=1 to 10 do begin https://www.cyberforum.ru/ pascalabc/ thread397930.html	Перевод чисел из одной системы счисления в другую Pascal ABC Дана строка, представляющая собой запись числа в десятеричной системе счисления. Преобразуйте ее в строку, представляющую собой запись числа в восьмеричной системе счисления(нужны дробные числа) Добавлено через 3 часа 9 минут помогите Добавлено через 20 часов 29 минут помогиииииииииииите Добавлено через 57 секунд помогиииииииииииите
Pascal ABC Динамические структуры данных 1. Создать указатель на переменную вещественного типа. Занести с его помощью информацию в две переменные. Изменить с помощью указателя значение переменной. 2. Составить программу, которая вводит динамический массив из 10 вещественных чисел и выдает на печать сумму целых частей этих чисел. Плиз парни ... помогите.. https://www.cyberforum.ru/ pascalabc/ thread397920.html	Pascal ABC Многоугольник в pascal ABC https://www.cyberforum.ru/ pascalabc/ thread397899.html Нужна помощь! Как в Pascal abc нарисовать многоугольник если количество вершин и их координаты вводятся с клавиатуры!?((((( Добавлено через 3 минуты полность задача звучит так ! Вычислите площадь произвольного выпуклого многоугольника, заданного координатами своих вершин на плоскости. Написать написала но нужно ещё и нарисовать,а не получается( Program ploshcd;
Разработать алгоритм и программу поиска положительных элементов в главной диагонали матрицы Pascal ABC Разработать алгоритм и программу поиска положитель-ных элементов в главной диагонали матрицы . Выводятся все элементы,а надо только положительные главной диагонали:confusion: program matrix3; uses crt; Var A:array of integer; i,j,s:integer; begin	Pascal ABC матрица в паскале https://www.cyberforum.ru/ pascalabc/ thread397859.html Дана целочисленная матрица размера M x N. Найти номер последнего из ее столбцов, содержащих равное количество положительных и отрицательных элементов (нуле-вые элементы матрицы не учитываются). Если таких столбцов нет, то вывести 0. Позжалуйста ребят помогите... это программа должна быть на паскале))))заранеее огромное спасибо)

kkk008009kkk

46 / 46 / 5

Регистрация: 24.03.2011

Сообщений: 315

03.12.2011, 18:46

Вывести True, если введенное пользователем число оканчивается цифрой 5 и False в противном случае. - Pascal ABC - Ответ 2243038

03.12.2011, 18:46. Показов 8317. Ответов 5

Метки (Все метки)

Ответ

Pascal

Uses crt;
 
var
a:integer;
 
begin
   Write('Ââåäèòå ÷èñëî: ');readln(a);
   While a>9 do
   a:=a mod 10;
   if a=5 then writeln('True') else writeln('False')
end.

Добавлено через 5 минут

Сообщение от Tanya1893

4. Вывести True, если произведение цифр двузначного числа больше самого этого числа и False в противном случае.

Pascal

Uses crt;
 
var
a,r,t:integer;
 
begin
   Write('Введите число: ');readln(a);
   r:=a mod 10;
   t:=a div 10;
if r*t>a then writeln('True') else writeln('False')
end.

Вернуться к обсуждению:
Вывести True, если введенное пользователем число оканчивается цифрой 5 и False в противном случае. Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

03.12.2011, 18:46

Готовые ответы и решения:

Переделать: вывести TRUE, если число является степенью числа 3 и FALSE в противном случае
Ввести целое число. Вывести TRUE ,если число является степенью числа 3 и FALSE в противном...

Дано целое число N и набор из N целых чисел. Если в наборе нет четных чисел, то вывести True; в противном случае вывести False.
#include <conio.h> #include <stdio.h> #include <locale.h> int main() { int...

Если в наборе имеются числа, меньшие K, то вывести TRUE, в противном случае вывести FALSE
Pascal. Даны целые числа K, N и набор из N целых чисел. Если в наборе имеются числа, меньшие K, то...

Если в наборе все числа одинаковые, то вывести True; в противном случае вывести False
Мозгов не хватает додумать, парни помогите) #include <stdio.h> int main () { int N, i, a, R=0;...

	03.12.2011, 18:46

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

03.12.2011, 18:46

Помогаю со студенческими работами здесь

Вывести True если среднеарифметическое является ли целым числом, в противном случае вывести False.
Даны два числа x, y целого типа. Вывести True если среднеарифметическое является ли целым числом,...

Функция возвращает true, если число n - натуральное степень числа 2 и false в противном случае
Функция возвращает true, если число n - натуральное степень числа 2 и false в противном случае

Вывести на консоль true, если точка принадлежит заданным областям, и false - в противном случае
Составить программу которая печатает true если точка с координатами (x,y) принадлежит заданным...

Описать функцию, возвращающую true, если натуральное число является простым, и false в противном случае
Надо написать программу на c++ Описать функцию, возвращающую true, если натуральное число является...

Наверх