Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста решить задачи, желательно до субботы
помогите пожалуйста решить задачи, желательно до субботы
1.Дано число n. С начала суток прошло n минут.Определите, сколько часов и минут будут показывать электронные часы в этот момент. Программа должна ввести два числа: количество часов (от 0 до 23) и количество минут(от 0 до 59). Учтите, что число n может быть больше количества минут в сутках.
2.Пирожок в столовой стоит a рублей и b копеек. Определите, сколько рублей и копеек нужно заплатить за n пирожков.Программа получает на вход три числа: a,b,n и должна вывести два числа: стоимость покупки в рублях и копейках.
3. В некоторой школе занятия начинаются в - 9:00.
Продолжительность урока - 45 минут, после 1-го, 3-го, 5-го и т.д. урака перемена 5 минут, а после 2-го, 4-го, 6-го и т.д. - 15 минут.
Дан номер урока(число от 1 до 10). Определите, когда заканчивается указанный урок. Выведите два целых числа: время окончания урока в часах и минутах. При решении этой задачи нельзя пользоваться циклами и условными инструкциями.
1 | Автор: Lara_Kos | 2012-10-03, 19:30   |  Репутация: [ + 0 ]
1 задание
Code
var x,y: integer;
    
begin
   x:=0;
   y:=0;
   write('Введите количество минут, прошедших с начала дня');
   readln(x);
   if x>1440 then x:=x-(x div 1440)*1440;
   if x>59 then  
     begin
     y:=x div 60;
     x:=x-(60*y);
     end;
   writeln(y,':',x);
end.

2 задание
Code
var a,b,n: integer;
    
begin
   readln(a,b,n);
   b:=b*n;
   if b>99 then
   begin
     a:=a+(b div 100);
     b:=b mod 100;
   end;
   writeln(a,':',b);
end.
2 | Автор: HWOARANG | 2012-10-06, 12:44   |  Репутация: [ + 20 ]
спасибо большое)))
3 | Автор: Lara_Kos | 2012-10-07, 21:09   |  Репутация: [ + 0 ]
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) )

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-10-08, 11:00   |  Репутация: [ + 211 ]
так то я не тупая, догадалась))
5 | Автор: Lara_Kos | 2012-10-09, 16:17   |  Репутация: [ + 0 ]
И слава Богу, что не тупая))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-10-09, 21:31   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста решить задачи, желательно до субботы
  • Страница 1 из 1
  • 1
Поиск: