Цикл вида for i:=a to b do (Pascal) выполняется b-a+1 раз.
Цикл вида for x=a to b step h (Basic) выполняется FIX((b-a)/h)+1 раз, где FIX - операция получения целой части числа путем отбрасывания его дробной части.
Ответ:
Сколько слайдов? Почему именно на тему Гравити Фолз
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
Алг Число
нач
цел n, k
вывод "Введите целое число", нс
ввод n
k:=0
нц пока n>0
если mod(n,10)=9 то
k:=k+1
все
n:=div(n,10)
кц
если k=2 то
вывод "Да."
иначе
вывод "Нет."
кон
Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка