Найдите соответствия между понятиями и определениями: Язык программирования Знаковая система для записи - id1261934320220919 от kannoesubaru37 19.09.2022 01:38

Question

Информатика: Найдите соответствия между понятиями и определениями: Язык программирования Знаковая система для записи компьютерных прогр. Алгоритм Человек, компьютер, автомат Программа Последовательность действий, приводящих к рез-ту Блок-схема Графический записи алгоритма Исполнитель алгоритма Алгоритм, записанный на «понятном» компьютеру языке 2 Добавить пропущенный этап программирования: 1) Выбор языка программирования; 2) 3) Запись алгоритма на выбранном языке программирования 3 5. Выполнить постановку задачи

kannoesubaru37 · Accepted Answer

var i,j,k,m: integer;
s: string;
begin
k:=0;
for i:=1 to 1000000 do
begin
s:=IntToStr(i);
m:=0;
for j:=1 to (length(s) div 2) do
if s[j]<>s[length(s)-j+1] then m:=1;
if m=0 then
begin
inc(k); continue;
end;
m:=pos('0',s);
if m>0 then
begin
inc(k); continue;
end;
m:=1;
for j:=2 to round(sqrt(i)) do
if i mod j = 0 then
begin
m:=0;
break;
end;
if m=1 then inc(k);
end;
k:=1000000-k;
writeln('осталось чисел: ',k);
end.

осталось чисел: 544011

MOGZ ответил