Тема моего проекта "Видеокарта". Я выбрал эту тему, потому что я считаю, что это является острой темой при сборке ПК. Цель моей работы - рассказать, как правильно выбрать видеокарту и как за ней ухаживать. Проектным продуктом будет - корпус ПК. Этот продукт достичь цель проекта, так как он наглядно показать, какую важнейшую роль играет видеокарта. Я начал свою работу с того, что рассказал подробно о видеокарте, из чего она состоит. Потом я приступил к рассказу инструкции о правильной установке видеокарты в ПК и установке драйверов на видеокарту. Я завершил работу тем, что рассказал, как выбрать правильную видеокарту перед покупкой в магазине. Работа над проектом показала мне, что видеокарта - крайне важный элемент в ПК.
Цикл while i > 1 do begin означает что он будет выполняться до тех пор, пока i > 1. i изначально равно 7, и в конце каждого выполнения число уменьшается на единицу (i:=i-1). i div 2 означает деление числа на 2 с целым остатком. Исходя из вышесказанного имеем:
(Каждое выполнение цикла буду обозначать как №)
№1: 7>1 (Истина)
S:=0+3=3
i=6
№2: 6>1 (Истина)
S:=3+3=6
i:=5
№3: 5>1 (Истина)
S:=6+2=8
i:=4
№4: 4>1 (Истина)
S:=8+2=10
i:=3
№5: 3>1 (Истина)
S:=10+1=11
i:=2
№6: 2>1 (Истина)
S:=11+1=12
i:=1
№7: 1>1 (Ложь)
Вывод числа S со значением 12.
ответ: 12.
var k, i, n: integer;
begin
writeln ('vvedi natur chislo');
readln (n);
if n>=1 then
begin
for i:=1 to n do
if n/i=n div i then k:=k+1;
writeln ('kol-vo delitelej=', k);
end else writeln ('eto chislo ne natur');
readln;
end.