Вариант ответа 4 - PPT
P.S. Во втором варианте буква X означает что у презентации будет совместимость со старыми версиями PowerPoint( вроде бы с 1997-2003)
<span>Строка состояния представляет собой горизонтальную полосу в нижней части окна документа Microsoft Word. В строке состояния отображаются данные о текущем состоянии содержимого окна и другие сведения, зависящие от контекста.
отображает
</span><span>Показывает номер страницы.
</span>число слов
язык
состояние проверки правописания. Во время поиска ошибок данный значок принимает вид книги, над которой движется карандаш. Изображение галочки свидетельствует об отсутствии ошибок. При обнаружении ошибки появляется пометка в виде буквы «Х». Для устранения ошибки дважды щелкните этот значок.
Ответ:
procedure recursiveprime(num:integer);
var
i:integer;
begin
{тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)
i:=2;
while i<(num div 2) and (num mod i <> 0) do inc(i)
if i=num div 2 then println(num,"- простое!');
if num<60 then recursiveprime(num+1);
end;
begin
recursiveprime(4);
end.
Объяснение:
ну как-то так.. паскаля под рукой нет, лет 7 назад последний раз трогал дельфи
рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60
проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.
надеюсь мысль понятна
Var
a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
while i<n do
Begin
readln(a);
if a>0
then k:=k+1;
i:=i+1;
end;
Writeln(k);
End.
Если не будет хватать одного выполнения то напишешь "while i<n+1 do"
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int n;
cin >> n;
int s = int(n / 100), e = n % 10;
int d= int(n / 10) % 10;
cout << "Искомый остаток равен " << (s * d * e) % (s + d + e) << "\n";
cout << s << e << d << "\n";
return 0;
}