Program bbb
var
N,k:integer;
begin
writeln('введите число N');
readln(N);
k=0;
for 1 to N do
begin;
if k mod 5=0 then
k:=k+1;
writeln(k);
end;
end. Попробуй так должно получится, если не получается добавь переменную i в разделе var и вставь сюда (for i=1 to N do...)
Var x,y:integer;
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7
Информацию измеряют в бит, байт, килобайт...
0 или 1 - бит
восемь 0 или 1 - байт
1024 байт = 1 Кбайт
1024 Кбайт = 1 Мбайт....
если 2048 / 2 = то сколько будет в мегабайтах
если 160 бит / 8 = то сколько будет в байтах
Первый вопрос:
<span>Ресурс — это
Ответ:
</span><span>запас, источник чего-нибудь
</span>
Второй вопрос:
<span>Массивы документов с зафиксированной на ней информацией называются
Ответ:
</span><span>информационными ресурсами
</span>
Третий вопрос:
<span>Закон, принятый в 2015 г., называется…
Ответ:
</span><span>«Об информации, информатизации и защите информации»</span><span>
</span>
Ответ:
d = int(input())
m = int(input())
yc = int(input())
c = yc // 100
y = (yc - c) % 100
otv = (d + ((13 * m - 1) // 5) + y + (y // 4 + c // 4 - 2 * c + 777)) % 7
print(otv)
Объяснение: