Горит прям ! 1)укажите результат выполнения программы var a,b: integer; procedure proc(var a: integer; - id359409920200102 от lagis9 02.01.2020 15:00

Question

Информатика: Горит прям ! 1)укажите результат выполнения программы var a,b: integer; procedure proc(var a: integer; b: integer); begin b: =4; a: =6; b: =a+b; end; begin a: =2; b: =3; proc(a,b); writeln(a, ,b); end. 1) 2 3 2) 2 10 3) 6 3 4) 6 10 2) сколько байт памяти надо для записи шуточного высказывания оскара уайльда: «я такой умный, что иногда не понимаю ни единого слова из того, что говорю»? 1) 73; 2) 584; 3) 146; 4) 1168

lagis9 · Accepted Answer

Var s:string;    d1,m1,g1,d2,m2,g2,t,c:integer;    p:boolean;    k:byte;begin k:=0; writeln( Введите дату в формате дд.мм.гг );readln(s); val(copy(s,7,2),t,c);{преобразуем год в число}if (c 0)or(t 0) then k:=1 else g1:=t;{определим високосный год или нет}if (((g1+2000) mod 100 0)and((g1+2000) mod 4=0))or((g1+2000) mod 400=0) then p:=trueelse p:=false; val(copy(s,4,2),t,c);if (c 0)or not(t in [1..12]) then k:=1 else m1:=t; val(copy(s,1,2),t,c);if (c 0)or((m1 in [1,3,5,7,8,10,12])and not(t in [1..31])) ...

MOGZ ответил