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 встреча с лесными животными
4 лисья хитрость или съеденный колобок
Итак, алгоритм прост:
Площадь = а * б * с
<em>Периметр = а + б + с</em>
<em>Могу реализовать это же на паскале:</em>
<h3>
<em>var a,b,c,s,p:integer;</em></h3><h3>
<em>begin</em></h3><h3>
<em>read(a,b,c);</em></h3><h3>
<em>s:=a*b*c;</em></h3><h3>
<em>p:=a+b+c;</em></h3><h3>
<em>Write(s,' ',p);</em></h3><h3>
<em>end.</em></h3>
Если мой ответ вам помог - выберите его лучшим :)
Заранее спасибо
<span>файл, служащий указателем на объект (например, файл, который требуется определённым образом обработать), программу или команду и содержащий дополнительную информацию.</span>
Var i, k: integer;
begin
for i := 15 to 125 do
if (i mod 2 = 0) and (i mod 3 = 0) then write(i, '; ');
<span>end.</span>