Программа на языке паскаль - вопрос №12949555 от АлинаКравченко 02.02.2020 11:14

Question

Информатика: Программа на языке паскаль

АлинаКравченко · Answer

Varx, y:integer;BeginWrite( Введите значение x: ) ;Readln(x) ;BeginIf x 0 thenWrite( y=0 ) end;BeginIf x=0 thenWrite( y=3 ) end;BeginIf x=1 thenWrite( y=1 ) end;BeginIf x=2 thenWrite( y=3 ) end;BeginIf x=3 thenWrite( y=2 ) end;BeginIf x=4 thenWrite( y=2 ) end;BeginIf x=5 thenWrite( y=1 ) end;BeginIf x=6 thenWrite( y=1 ) end;BeginIf x=7 thenWrite( y=3 ) end;BeginIf x=8 thenWrite( y=3 ) end;If x 8 thenWrite( y=0 ) end....