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...)
Назначение помогать людям за зверями . Команды :напоминать когда кормит , играть(может делать все сам) Это задание на воображение подумай)
................................................................................................
Задача 1:
25 * 40 * 5 = 5000 (Б)
5000 / 1024 = 4,88 (КБ)
Ответ: 5000, 4,88.
Задача 2:
32 * 64 = 2048 — символов на страницу
2048 / 1024 = 2 (КБ) — килобайт на страницу
512 / 2 = 256 (КБ) — страниц в книге
Ответ: 256.
1) a = 0, b = 0
2) идём по строке, если символ 'A', то ++а, т.е. станет а = 3
3) если два символа симметричны относительно центра, то ++b
ALL OUR LIF
EMAG A SI E
симметричных символов нет, поэтому b = 0
<span>4) b > a == false, поэтому D = a*a*a = 27</span>