Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
ОЧЕНЬ СРОЧНО НУЖНО РЕШИТЬ ЗАДАЧИ ПАСКАЛЬ!!!!!ПОМОГИТЕ!!!
1) Спросить у пользователя 3 целых числа
Если наибольшее число - первое, то вывести сумму чисел
Если наибольшее - второе, то произведение чисел
Если наибольшее, - третье, то вывести остаток от деления суммы двух первых на третье
Если числа равны, вывести сообщение"числа равны"

2)Подсчитать произведение первых 10 чисел кратных 3 

3)В массиве найти элементы, сумма чисел, которых делится на заданное число
1 | Автор: Катерина | 2013-11-12, 21:29   |  Репутация: [ + 0 ]
1.
var
a,b,c:integer;
begin
read(a,b,c);
if (a = b) and (b = c) then writeln('числа равны') else
if (a > b) and (a > c) then writeln(a+b+c) else
if (b > a) and (b > c) then writeln(a*b*c) else writeln(a+b mod c);
end.

2.
var
i, count, pr:integer;
begin
count:=0;i:=3;pr:=1;
while count < 10 do begin
if i mod 3 = 0 then begin
count:=count+1;pr:=pr*i;end;
i:=i+1;end;
writeln(pr);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-11-12, 21:56   |  Репутация: [ + 211 ]
3. ищи на форуме, когда-то решал

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2013-11-12, 21:57   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: