Uhok стране
5. часовые пояса
таа решила попросить своей подруге, а к
ому в короносе подруги миет біть самом полово или рамо часу у
оса, чо та живеть
показывает ровно н о та мир и сом повсе utc+a, а се орга аса
по се св. тане определить время в часовом поясе подруги мо агар
программа получат на вход три целых числа н. а. в. онs , -
-11 ѕв s 12.
sa 12,
в часовом поясе utca местное время больше, чем время в часовом восе со
на а часов (если же а 0, то меньше на а часов). например, если в часовом оке олсо
сейчас 12 часов, то в часовом поясе utc+1 - 13 часов, а часосом поясе ла-1-1 часа
программа долна вести одно число - ремя боличество часов) 5 часом роке
подруги.
под временем в той м е подразумевается колесосов, которое может
принимать сения от 0 до 23. при решении до обратите внимание, что в часом пояс
подруги может быть уже следующая дата или предыдущая да, программа д а си
количество часов на часах подруги в этот момент, то есть всю от 0 до 23
пример входных и выходных данных
ввод вывод примечание
у тани - 15 часов, она живет в часовом поне с вас
(поясе utc+0 сейчас 12 часов. подруга живет всем праке с
и у нее сейчас 7 часов.
примеры оформления решения
далее примеры ввода и мода данных к этои че на неском сах
программирования. выберите оди и яров
дитие
программирования
соответствующую программу и отправьте ее на проверку с использованием одного и
допустимых компиляторов
python
var , , , speers logist?
h int input
- int (input )
readin teadis teodina
b iotinput)
15
pascal
print as well
seriteln tsneer)
program array4x4;
const
D = 4; // размерность массива, можно менять на любое другое
var
A: array [1..D, 1..D] of Integer;
i, j, s, smax, jmax, smin, imin: Integer;
begin
Randomize;
for i := 1 to D do begin
WriteLn;
for j := 1 to D do begin
A [i, j] := Random (21) - 5;
Write (A [i, j] :3, ' ');
end;
end;
smax := 0;
jmax := 0;
for j := 1 to D do begin
s := 0;
for i := 1 to D do begin
s := s + Abs (A [i, j]);
end;
if s > smax then begin
smax := s;
jmax := j;
end;
end;
WriteLn;
WriteLn ('Столбец № ', jmax, ' Сумма модулей = ', smax);
imin := 1;
smin := MaxInt;
for i := 1 to D do begin
if A [i, jmax] < smin then begin
smin := A [i, jmax];
imin := i;
end;
end;
WriteLn ('Наименьший элемент: ', imin, ' : ', jmax, ' Равен = ', smin);
ReadLn;
end.
PASCAL ABC
program z1;
var a,s:integer; //описание переменных
begin
readln(a); //вводим первое число
s:=0; //начальное значение суммы
while a<>0 do //условие ввода (ввод оканчивается нулем)
begin
if (a mod 10=4) and (a mod 6=0) then s:=s+a; //проверка двух условий: первая скобка - оканчивается на 5, вторая - кратно 6
readln(a) //заново вводим число
end;
writeln(s) //вывод суммы, когда весь цикл завершится
end.
P.S не особо понимаю, почему с таким вводом, такой ответ у тебя получается