Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('N=');
readln(N);
{Цикл с предусловием}
a:=2;
Summa:=0;
while a<=N do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>N;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := 2 to N do Summa : =Summa + a;
<span>Writeln (' Результат третьего суммирования:', Summa); End</span>
Сладкий вкус(прямое)- сладкий сон (переносное)
горький шоколад(прямое)- горькая правда(переносное)
стальной гвоздь(прямое)- стальные нервы(переносное)
холодные руки)прямое)- холодный взгляд(переносное)
12 × 1024 × 8<span> = </span><span>98304 бит
</span>98304 / 24576<span> = </span><span>4 бит (вес символа) </span>
//прога на Pascal`e {бдок-схема в файле}
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.