Задачка для умных! :D - Форум
Суббота, 03.12.2016, 22:45
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачка для умных! :D (Надо решить задачу!)
Задачка для умных! :D
TaddyДата: Воскресенье, 14.03.2010, 21:04 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Надо решить эту задачу! Очень надо! От меня будет большая благодарность! P.S. Помогите девушке! smile 1. Проверьте, делится ли нацело на 5 и 2 одновременно сумма четырех произвольных чисел, введенных с клавиатуры.

2. Для пяти произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.

· Если сумма первых трех чисел положительна, то выведите числа, противоположные исходным пяти.

· Если два последних числа отрицательны, то выведите их произведение.

· Если выполняются одновременно два перечисленных выше условия, то выведите все пять чисел без изменения.

· Иначе, выведите все пять чисел, увеличив их в два раза.

Составить соответствующие отладочные примеры и проверите работу каждой программы.

 
PASCAL26Дата: Среда, 17.03.2010, 20:30 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
Taddy, 1-
Code

program abcd;
var
a,b,c,d:integer;
begin
writeln('vvod chisel');
readln(a,b,c,d);
if ((a+b+c+d)mod 10)= 0 then writeln('delitsya').
else writeln('ne delitsya');
readln;
end.

Добавлено (17.03.2010, 20:30)
---------------------------------------------
Taddy, 2-

Code

program abcd;
var
a,b,c,d,e:integer;
begin
writeln('vvod chisel');
readln(a,b,c,d,e);
if ((d<0)and(e<0)and(a+b+c>0)) then writeln(a,' ',b,' ',c,' ',d,' ',e)
else
if ((d<0)and(e<0)) then writeln(d*e)
else if (a+b+c>0)then writeln(1/a:0:4,' ',1/b:0:4,' ',1/c:0:4,' ',1/d:0:4,' ',1/e:0:4)
else writeln(2*a,' ',2*b,' ',2*c,' ',2*d,' ',2*e);
readln;
end.


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно


Сообщение отредактировал PASCAL26 - Среда, 17.03.2010, 20:22
 
TaddyДата: Суббота, 27.03.2010, 11:27 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
smile Спасибо большое))
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачка для умных! :D (Надо решить задачу!)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016