Регистрация
Aurelli1
12.03.2023 11:05
Информатика
Есть ответ 👍

(кто знает паскаль) дана программа: var g: integer; i: integer; begin readln(g); if (g> =0) and (g< =100) then i: = 1; if (g> =101) and (g< =200) then i: = 2; if (g> =201) and (g< =300) then i: = 3; if (g> =301) and (g< =400) then i: = 4; if (g> =401) and (g< =500) then i: = 5; if (g> =501) and (g< =600) then i: = 6; if (g> =601) and (g< =700) then i: = 7; if (g> =701) and (g< =800) then i: = 8; writeln(i) end. можно ли сократить ее? и как, каким оператором?

212
392
Посмотреть ответы 2

Ответы на вопрос:

KristheMalen
KristheMalen
4,5(1 оценок)
Var  g, i, j, m, n: integer; begin   m : = 100;   read(g);   for j : = 1 to 8 do  begin     if(g > = n) and (g < = m) then i : = j;     if (j = 1) then n : = n + 1;     n : = n + 100;       m : = m + 100;   end;   write(i); end.
matetskayamilan
matetskayamilan
4,7(31 оценок)

(¬(m  v  l)  /\  k) → ((¬k  /\¬m)  \/  n)

(¬m /\ ¬l /\  k) → ((¬k  /\¬m)  \/  n)

ложно если первая часть 1 а вторая 0

¬m /\ ¬l /\  k = 1  => m=0, l=0,k=1

 

(¬k  /\¬m)  \/  n = 0

подставляем

(0 /\1)  \/  n = 0 => n=0

 

 

 

Популярно: Информатика