Найдите соответствия между понятиями и определениями: Язык программирования Знаковая система для записи компьютерных прогр. Алгоритм Человек, компьютер, автомат Программа Последовательность действий, приводящих к рез-ту Блок-схема Графический записи алгоритма Исполнитель алгоритма Алгоритм, записанный на «понятном» компьютеру языке 2 Добавить пропущенный этап программирования: 1) Выбор языка программирования; 2) 3) Запись алгоритма на выбранном языке программирования 3 5. Выполнить постановку задачи для следующего задания: В банк на 11, 5 процентный вклад положили N тенге. Какой будет сумма вклада через D лет
Ответы
А картинку можешь отправить
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
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
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
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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Решите задачу по robowin на английском.
Автор: Amulenkov
В классе 10111 2 девоче к и 1010 2 мальчиков. Сколько учеников в классе?
Автор: energycomplect5914
Перечислите основные устройства входящие в состав эвм
Автор: RozaAsadullina
Информатика, все просто нужна не успеваю сделать С объяснением
Автор: tatry2005
акылды уй тест курастыру
Автор: dkvsadovoe
Дано : равномерный массив а[n] найти количество отрицательных элементов массива
Автор: Андрееевич787
Укажите сочетание клавиш позволяющих осуществить быстрый переход в окно
Автор: Gennadievna bessonov
Викторная графика точкарастворная графика. линия
Автор: sn009
үвггуричикрвррчрковоіокркггвовокггкгкгкгкүі