Вот полная
uses crt;
var
i,k:integer;
begin
for i:=100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then begin
writeln(i);
k:=k+1;
end;
writeln('кол-во',k)
end.<span>
</span>

0 0

3 года назад

В сообщении 4 строки по 50 каждый найти объем сообщения если в алфавите 32 символа По формуле N=2i

влвдимир [7]

4 cтроки, на каждой строке 50 символов.

4 * 50 = 200 символов в тексте

32 = 2**i

i = 5 - вес одного символа

200 * 5 = 1000 Бит

Ответ: 1000 бит

0 0

4 года назад

Дано трехзначное число N. определить будет ли сумма его цифр четным числом

Солнце11 [1.9K]

Решение на языке Pascal

0 0

4 года назад

Помогите пожалуйста, очень срочно надо!

melkiykot [153]

1. 123
2. 1453
3. 420
можно не благодарить

0 0

4 года назад

Прочитать ещё 2 ответа