Программа на языке паскаль - вопрос №12950232 от tjumentseva20031 04.07.2021 06:23

Question

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

tjumentseva20031 · 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....