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.

Оценить ответ

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы