СОСТАВТЬ ПРОГРАММУ ДЛЯ СЛЕДУЮЩИХ ЗАДАЧ пажалуста, пажалуста в паскале а) С…

Question

77

СОСТАВТЬ ПРОГРАММУ ДЛЯ СЛЕДУЮЩИХ ЗАДАЧ пажалуста, пажалуста в паскале а) С клавиатуры вводится два вещественных числа. Найти целую часть от произведениядвух вещественных чисел. Б) С клавиатуры вводится целое число. Наити дробную часть от деления целого числа на 10 г) С клавиатуры вводится два вещественных числа. Найти сумму двух вещественных чисел и округлить ее. Д) С клавиатуры вводится два целых числа. Наити целую часть при деление первого числа на другое е) Дано количество метров, которые прошел пешеход. Найти сколько километров без учета метров прошел пешеход. Ж) С начала месяца прошло m часов. Определить какое сейчас число. З) С начала годапрошло k дней определить какая сеичас неделя, если 1 января было понедельник. И) С начала суток прошло k минут. Определить который час сейчас (в часах и минутах)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

tersen · Accepted Answer

91

tersen

24 февраля 2023

var a, b: real; begin read (a, b); write (trunc (a*b); end. var a: integer; begin read (a); write (frac (a / 10); end. Г) var a, b: real; begin read (a, b); write (round (a+b); end. d) var a, b: integer; begin read (a, b); write (a div b); end. e) var a: integer; begin read (a); write (a div 1000); end. Ж) var a: longint; begin read (a); write (a div 24+1); end. З) var k: integer; begin read (k); write (k div 7+1); end. И) var k: integer; begin read (k); write (k div 60, ': ', k mod 60); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: