На перекрёстке произошло дорожно-транспортное происшествие, в котором участвовали автобус (а), грузовик (г), легковой автомобиль (л) и маршрутное такси (м свидетели происшествия дали следующие показания. первый свидетель считает, что первым на перекрёсток выехал автобус, а маршрутное такси было вторым. другой свидетель полагал, что последним на перекрёсток выехал легковой автомобиль, а вторым был грузовик. третий свидетель уверял, что автобус выехал на перекрёсток вторым, а следом за ним - легковой автомобиль. в результате оказалось, что каждый из свидетелей был прав только в одном из своих утверждений. в каком порядке выехали машины на перекрёсток? в вариантах ответов перечислены подряд без пробелл первые буквы назван й транспортных средств в порядке их выезда на перекрёсток: а) амлг; 2) аглм; 3) глма; 4) млга.я знаю, что второй ответ - правильный, но мне надо сделать таблицу по этому . , .
Ответы
var a, d, count, i: integer; function CountDay(a: integer): integer; begin if (a >= 1) then countday := 31; if (a >= 2) then countday := 28; if (a >= 3) then countday := 31; if (a >= 4) then countday := 30; if (a >= 5) then countday := 31; if (a >= 6) then countday := 30; if (a >= 7) then countday := 31; if (a >= 8) then countday := 31; if (a >= 9) then countday := 30; if (a >= 10) then countday := 31; if (a >= 11) then countday := 30; if (a >= 12) then countday := 31; end; begin count := 0; write('Введите месяц: '); readln(a); write('Введите день: '); readln(d); if (a <= 0)or(a > 12)or(d <= 0)or(d > countday(a)) then writeln('Ошшибка в данных!') else begin for i:=a to 12 do count := count + countday(i); count := count - d; writeln('До нового года осталось ', count, ' дней.'); end; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Виберіть правильні імена змінних
Автор: Salnikov1730
Що таке форматування тексту
Автор: bessalaias
Какие компоненты изображены на панели лазарус
Автор: Budanov317
Дана матрица размера m x n. найти сумму наименьших значений элементов её строк. c++
Автор: Bondarev_Ayupova795
Заполните массив 15 случайными числами от 0 до n в одну строку
Автор: Новицкий1107
Наведіть приклади таких формул. информатика только бистрее
Автор: sveta740450
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if A>1 then C:=C-31;
if A=1 then C:=C-B;
if A>2 then C:=C-28;
if A=2 then C:=C-B;
if A>3 then C:=C-31;
if A=3 then C:=C-B;
if A>4 then C:=C-30;
if A=4 then C:=C-B;
if A>5 then C:=C-31;
if A=5 then C:=C-B;
if A>6 then C:=C-30;
if A=6 then C:=C-B;
if A>7 then C:=C-31;
if A=7 then C:=C-B;
if A>8 then C:=C-31;
if A=8 then C:=C-B;
if A>9 then C:=C-30;
if A=9 then C:=C-B;
if A>10 then C:=C-31;
if A=10 then C:=C-B;
if A>11 then C:=C-30;
if A=11 then C:=C-B;
if A>12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.