Задаешь значения k и S ноль(количество и сумма) .Сделай цикл с условием, если b делить на 5 равно нолю то k равно k=+1.
Ещё такое же условие, но s=s+b
Var i:integer;
begin
for i:=1 to 10 do
writeln(,i,'*7=',i*7);
end.
Для подключения процессора к оперативной памяти служит шина.
Например: 643000. Чтобы найти сумму этих чисел нам надо сложить все числа указанные в числе. Получится: 6+4+3+0+0+0=13
Появление первых лазерных дисков 15 декабря 1978 Первые следы иероглифического письма в Древнем Египте<span> к началу I династии, то есть примерно в 4 тысячелетии до н. э.
</span>