М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
тупой1712
тупой1712
23.05.2020 04:18 •  Информатика

Однажды, путешествуя по стране, тролль габа вспомнил что ему необходимо отправить электронное сообщение, но сделать это он сможет только на ближайшей станции. известно, что следующими станциями будут веткино, крутилино, жилино и тужилино. на каждой станции есть интернет- комнаты, в работе которых предусмотрен часовой обед. на вышеперечисленных станциях он начинался в 12: 00, 13: 00, 14: 00 и 15: 00 соответственно. когда габа вспомнил это, его часы показывали 11 часов 40 минут. до ближайшей станции - веткино- оставалось ехать 50 км. скорость движения поезда - 150 км/ч. перегоны между указанными станциями составляют 200 км. длительность стоянок поезда на станциях 30, 10, 20 и 15 мин соответственно. в какой ближайший временной интервал троллю габе всё же удастся отправить письмь? а) 15: 20-15: 40 б)13: 40-14: 00 в)12: 50-13: 20 г) 17: 00-17: 15

👇
Ответ:
melnicoff
melnicoff
23.05.2020
По моим решениям ответ будет 15:20-15:40
4,8(1 оценок)
Открыть все ответы
Ответ:
diyarbek2120313
diyarbek2120313
23.05.2020
Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.
4,4(69 оценок)
Ответ:
yyydomayyy
yyydomayyy
23.05.2020

var

a,i,n,a1:integer;

begin

a1:=30000;

read(n);

for i:=1 to n do begin

read(a);

if (a<a1) and (a div 10 <10) and (a div 10 >1)and (a mod 2 = 0) then a1:=a;

end;

writeln(a1);

end.

var

b,x,c:real;

i,n,a:integer;

begin

x:=0;

b:=0;

read(n);

for i:=1 to n do begin

read(a);

if (a mod 7 = 0) or (a mod 3 = 0) then b:=b+a;

if (a mod 7 =0) or (a mod 3 = 0) then x:=x+1;

end;

c:=b/x;

writeln(c);

end.

var

a,b,x,i,n:integer;

begin

x:=0;

read(n);

for i:=1 to n do begin

read(a);

if (a mod 10 <>1) and (a mod 2 = 1) then x:=x+1;

end;

writeln(x);

end.

4,7(99 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ