1 способ
var i,k:integer;
<span>begin
k:=0; </span>
for i:=999 downto 100 do
begin
if i mod 13= 0 then
k:=k+1;
end;
write(k);
<span>end.
2 способ
</span>var i,k:integer;
<span>begin
k:=0; </span>
<span>for i:=100 to 999 do </span>
<span>begin </span>
<span>if i mod 13= 0 then </span>
k:=k+1;
<span>end; </span>
write(k);
<span>end.</span>
Var a, b, c: real
BEGIN
write ('Vvedite a, b, c'); readln (a, b, c);
If ((a+b>c) and (a+c>b) and (b+c>a)) then writeln ('Tr-nik suschestvuet, P = ', a+b+c)
else writeln ('Tr-nik ne suschestvuet');
END.
Файл конечно же в нем вся информация
Диалоговые окна и окна папок
Хочу попередити зразу, що в різних версіях програми алгоритм може дещо відрізнятися.
1. Вибрати в документі МІСЦЕ, куди буде вставлятися зображення.
2. Виконати Вставлення => Зображення => Із файлу.
3. Вибрати у вікні ВСТАВЛЕННЯ ЗОБРАЖЕННЯ потрібний файл.
4. Вибрати кнопку ВСТАВИТИ.