Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/19: Рейтинг темы: голосов - 19, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 30.11.2011
Сообщений: 3
1

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

03.12.2011, 17:45. Просмотров 3392. Ответов 5
Метки нет (Все метки)

3. Вывести True, если введенное пользователем число оканчивается цифрой 5 и False в противном случае.
4. Вывести True, если произведение цифр двузначного числа больше самого этого числа и False в противном случае.
5. Вывести True, если введенное пользователем трехзначное число является палиндромом и False в противном случае.
6. Вывести True, если сумма двух первых цифр заданного четырехзначного числа N равна произведению двух последних и False в противном случае.
7. Напишите программу, которая переменной t присваивает значение true, если первая дата (день и месяц) предшествует второй дате, и значение false в противном.
8. Вывести True, если шахматная ладья за один ход может переместиться с одного заданного поля на другое (каждое поле задано двумя координатами — целыми числами от 1 до 8).
9. Вывести True, если шахматный конь за один ход может переместиться с одного заданного поля на другое (каждое поле задано двумя координатами — целыми числами от 1 до 8) и False в противном случае.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.12.2011, 17:45
Ответы с готовыми решениями:

Переделать: вывести 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;...

5
--\.founder./--
563 / 563 / 392
Регистрация: 20.10.2011
Сообщений: 867
03.12.2011, 18:40 2
Цитата Сообщение от Tanya1893 Посмотреть сообщение
3. Вывести True, если введенное пользователем число оканчивается цифрой 5 и False в противном случае.
Pascal
1
2
3
4
5
6
7
8
9
10
11
Uses crt;
 
var
a:integer;
 
begin
   Write('Ââåäèòå ÷èñëî: ');readln(a);
   While a>10 do
   a:=a mod 10;
   Writeln(a=5);
end.
0
46 / 46 / 5
Регистрация: 24.03.2011
Сообщений: 315
03.12.2011, 18:46 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
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
1
2
3
4
5
6
7
8
9
10
11
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.
0
--\.founder./--
563 / 563 / 392
Регистрация: 20.10.2011
Сообщений: 867
03.12.2011, 18:46 4
Мда
0
46 / 46 / 5
Регистрация: 24.03.2011
Сообщений: 315
03.12.2011, 18:52 5
Цитата Сообщение от Tanya1893 Посмотреть сообщение
5. Вывести True, если введенное пользователем трехзначное число является палиндромом и False в противном случае.
Pascal
1
2
3
4
5
6
7
8
9
10
11
Uses crt;
 
var
a,r,t:integer;
 
begin
   Write('Введите число: ');readln(a);
   r:=a mod 100;
   t:=a div 100;
if r=t then writeln('True') else writeln('False')
end.
Добавлено через 4 минуты
Цитата Сообщение от Tanya1893 Посмотреть сообщение
6. Вывести True, если сумма двух первых цифр заданного четырехзначного числа N равна произведению двух последних и False в противном случае.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses crt;
 
var
a,r,t,y,u:integer;
 
begin
   Write('Введите число: ');readln(a);
   r:=a div 100;
   t:=a div 1000;
y:=a mod 100;
u:=a mod 1000;
if (r+t)=(y*u) then writeln('True') else writeln('False')
end.
0
Почетный модератор
7949 / 3920 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
04.12.2011, 02:33 6
Мне кажется, педагог здесь потредует использование типа boolean, та, например, первая задача:
Pascal
1
2
3
4
5
6
7
8
9
var
  n: integer;
  b: boolean;
begin
write('n=');
readln(n);
b:=n mod 5=0;
write(b);
end.
Добавлено через 29 секунд
Tanya1893, если моя мысль верна, намекни, тогда переделаю...

Добавлено через 7 часов 6 минут
Цитата Сообщение от Tanya1893 Посмотреть сообщение
4. Вывести True, если произведение цифр двузначного числа больше самого этого числа и False в противном случае.
Pascal
1
2
3
4
5
6
7
8
9
var
  n: integer;
  b: boolean;
begin
write('n=');
readln(n);
b:=(n div 10*n mod 10)>n;
write(b);
end.
Хотя, по моему, здесь никогда не будет True

Добавлено через 1 минуту
5
Pascal
1
2
3
4
5
6
7
8
9
var
  n: integer;
  b: boolean;
begin
write('n=');
readln(n);
b:=n div 100=n mod 10;
write(b);
end.
Добавлено через 6 минут
Цитата Сообщение от Tanya1893 Посмотреть сообщение
6. Вывести True, если сумма двух первых цифр заданного четырехзначного числа N равна произведению двух последних и False в противном случае.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n,t,s,d,e: integer;
  b: boolean;
begin
write('n=');
readln(n);
t:=n div 1000;
s:=(n-(1000*t)) div 100;
d:=(n-(1000*t)-(100*s)) div 10;
e:=n mod 10;
b:=(t+s)=(d*e);
write(b);
end.
Добавлено через 1 минуту
извини, на этом я пас...
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2011, 02:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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