program abc;
var
i, j:integer;
pr:boolean;
begin
writeln('Простые числа в диапазоне от 1 до 100: ');
for i := 2 to 100 do
begin
pr := true;
for j := 2 to i div 2 do
if i mod j = 0 then
begin
pr := false;
break;
end;
if pr then
write(i, ' ');
end;
writeln;
end.
Мне известны три группы программного обеспечения:
1. Системное ПО - это программы, управляющие работой аппаратных средств (сюда входят операционная система, драйверы).
2. Прикладное ПО - создание программ для решения конкретных задач (антивирусы, табличные редакторы, учебные программы).
3. Инструментальное ПО - позволяет создавать новые программы.
<span>оно может быть выражено в разных </span><span>языках</span>
1.
алг
нач
цел а
ввод а
вывод div(a, 1000), 'тонн'
кон
2.
var x, i: integer;
begin
write('Введите трёхзначное число: ');
readln(x);
if ( x <100 ) OR ( x>100 ) then writeln('Число не трёхзначное!')
else
begin
i :=x mod 10; write(i)
write(x div 100);
write(x div 10 mod 10);
end;
end.
3.
Было число ав
Стало число 2ав2
Разложим его на разряды
2ав2=2*1000+а*100+в*10+2=2002+100а+10в
По условию задачи это в 32 раза больше исходного двузначного числа ав, т.е.:
32ав=2ав2 ( Число ав тоже разложим на разряды, получим 10а+в)
32(10а+в)=2002+100а+10в
32(10а+в)=2002+10(10а+в)
32(10а+в)-10(10а+в)=2002
22(10а+в)=2002
10а+в=2002:22
10а+в=91
Итак, искомое число 91
1000=(83*12)+4;
Т.е. Пройдет 83 года и 4 месяца--- будет 15 марта.