Опубликовано в категории Информатика, 13.06.2019

Pascal ABC: 1. [-101,35] найти кол-во кратных 4 2. вычислить 1+2+4+8+16+32...256

Ответ оставил Гость

Задание 1program n_1;var k, i: integer;begin    k:=0;    for i:=-101 to 35 do if i mod 4 = 0 then k:=k+1;    writeln(k);end.Задание 2program n_2;var s, i: integer;begin    s:=0; i:=1;    while i<=256 do begin        s:=s+i; i:=i*2;    end;    writeln(s);end.