Привет, надеюсь тебе нужен был pascalabc :)
Если ввести 6 дней
Результат:
Привет, сколько дней?
Путь: 19.487171
68.27руб*7=477.89 руб стоит 7 товаров
68.27 руб стоит 1 товар
Var i, byear, eyear, k : integer;
Begin
read(byear, eyear);
byear := byear + 1;
for i := byear to eyear do
if (i >= 1605) and ((i - 1605) mod 10 = 0) then k:= k +1;
writeln(k);
End.
Var N, lastNum, mod5: integer;
flag: boolean;
begin
readln(N);
lastNum := N mod 10;
mod5 := N mod 5;
flag := (lastNum = 5) or (lastNum = 0);
if flag then
writeln('Число ', N, ' делится на 5 по признаку делимости')
else
writeln('Число ', N, ' не делится на 5 по признаку делимости');
if (mod5 = 0) then
writeln('Число ', N, ' делится на 5 по определению')
else
writeln('Число ', N, ' не делится на 5 по определению');
flag := flag xor (mod5 = 0);
if flag then
writeln('Результаты не совпадают, это не признак делимости!')
else
writeln('Результаты совпадают, это возможно признак делимости')
end.