Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
<span>end.</span>
Титульный слайд, заголовок и объект, заголовок раздела, два объекта, сравнение, только заголовок, пустой слайд
#include<iostream>
#include<cmath>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
int N;
cout <<"Введите количество чисел: ",cin >> N;
cout <<"Введите сами числа: ";
int k = 0;
for(int i = 0; i < N; i++)
{
int A;
cin >> A;
if (A > 3)
{
int B = 1, K = sqrt(A), d = 2;
while(d <= K)
{
if (A % d++ == 0)
{
B = 0;
break;
}
}
if (B) k++;
}
else if (A > 1) k++;
}
cout <<"Количество простых, среди введённых: "<<k;
return 0;
}
Я проверила, у меня в паскале все правильно. Название программы восхитительное:)))