|
ОЧЕНЬ СРОЧНО НУЖНО РЕШИТЬ ЗАДАЧИ ПАСКАЛЬ!!!!!ПОМОГИТЕ!!!
|
|
1) Спросить у пользователя 3 целых числа
Если наибольшее число - первое, то вывести сумму чисел
Если наибольшее - второе, то произведение чисел
Если наибольшее, - третье, то вывести остаток от деления суммы двух первых на третье
Если числа равны, вывести сообщение"числа равны"
2)Подсчитать произведение первых 10 чисел кратных 3
3)В массиве найти элементы, сумма чисел, которых делится на заданное число
|
|
|
|
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
|
|
|
|
3. ищи на форуме, когда-то решал
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
