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...)
<span>х=45
д=х+5
х=х-д+1
х=д+х
х=46</span>
Тип данных Длина Диапазон значений
байт
ЦЕЛЫЕ ТИПЫ
integer 2 -32768...32767
byte 1 0...255
word 2 0...65535
shortint 1 -128...127
longint 4 -2147483648...2147483647
ВЕЩЕСТВЕННЫЕ ТИПЫ
real 6 2,9 * 10^-39 ... 1,7 * 10^38
single 4 1,5*10^-45 ... 3,4*10^38
double 8 5*10^-324 ... 1,7*10^308
extended 10 3,4*10^-4932 ... 1,1*10^4932
ЛОГИЧЕСКИЙ ТИП
boolean 1 true, false
СИМВОЛЬНЫЙ ТИП
char 1 все символы из таблицы ASCII
3) ответ : 2) 13 тк 1 корневой + 3 первых* 4 вторых
4) ответ: 1,2,3