«Все самое интересное о 3D-мире.» Используйте Интернет.10-15 предложений

1)первый ключ сразу подошел к двери.2)второй ключ подошел т.е проверили 2.3)третий подошел т.е проверили 3ключа.4)четвертый подошел т.е проверили 4 ключа.

program summa;

uses crt;

var  i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.

вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину

(¬(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

программа генерирует масив и присваевает значение 0 самому большому значению в массиве.

program d1varc: array[1..20] of integer; i,z: integer; beginrandomize; for i: =1 to 20 dobeginc[i]: =random(50); end; z: =c[1]; for i: =1 to 20 dobeginif c[i]> z then z: =c[i]; end; c[z]: =0; end.