Задание по теме «Ветвящиеся алгоритмы (условный оператор)»

@радостева · Регистрация: 02.11.2010

Author24 — интернет-сервис помощи студентам

№1.Написать программу, которая определяет делителем каких чисел (среди трех введенных) является число .
№2.Написать программу, которая выводит в порядке возрастания три заданных числа.
ПОЖАЛУЙСТА ПОМОГИТЕ....

@SuPeR XaKer · 02.11.2010, 21:26

-I-

Pascal

Uses
 CRT;
Var
a,b,c,d:integer;
begin
ClrScr;
write('Ââåäèòå ÷èñëî: ');
readln(d);
write('Ââåäèòå a,b,c: ');
readln(a,b,c);
if a mod d=0 then
writeln('×èñëî ',d,' ÿâëÿåñòÿ äåëèòåëåì ÷èñëà ',a)
else
writeln('×èñëî ',d,' íå ÿâëÿåñòÿ äåëèòåëåì ÷èñëà ',a);
if b mod d=0 then
writeln('×èñëî ',d,' ÿâëÿåñòÿ äåëèòåëåì ÷èñëà ',b)
else
writeln('×èñëî ',d,' íå ÿâëÿåñòÿ äåëèòåëåì ÷èñëà ',b);
if c mod d=0 then
writeln('×èñëî ',d,' ÿâëÿåñòÿ äåëèòåëåì ÷èñëà ',c)
else
writeln('×èñëî ',d,' íå ÿâëÿåñòÿ äåëèòåëåì ÷èñëà ',c);
readkey
end.

-II-
Расположить числа в порядке возрастания

@радостева 0 / 0 / 0 Регистрация: 02.11.2010 Сообщений: 8
		1
	Задание по теме «Ветвящиеся алгоритмы (условный оператор)» 02.11.2010, 21:18. Показов 1330. Ответов 1 Метки нет (Все метки) №1.Написать программу, которая определяет делителем каких чисел (среди трех введенных) является число . №2.Написать программу, которая выводит в порядке возрастания три заданных числа. ПОЖАЛУЙСТА ПОМОГИТЕ.... 0

	02.11.2010, 21:26

Задание по теме «Ветвящиеся алгоритмы (условный оператор)»

Решение