<span>В Power Point'e можно зайдя в Средства рисования (1), далее выбираем фигуры, изгибы стрелки (2) и рисуем(3), далее делаем скрин заходим например в Paint (или любой другой графический редактор) и сохраняем как рисунок.
</span><span>В Paint'e так же выбираем фигуры и рисуем...
Ну можно ещё в Gimp'e сделать, не говоря уже про Adobe Photoshop)</span>
var a,b,c,s:integer;
begin
read(a);
read(b);
read(c);
s:=(a+b+c) mod 3 mod вробная часть от деления
end;
<span> </span>
var post,Bes:real;
begin
read(post);
Bes:=post-100; (кг)=(рост(см) - 100
end;
var m,n,k:integer;
begin
read(m);
read(n);
read(k);
o:=m*2+n*0+k*1
end;
var x:integer;
begin
read(x);
if x mod 2 =0 then write('чот') else write('нечет');
<span>end;</span>
var x:integer;
begin
read(x);
if x mod 10=7 then write('на конце 7') else write('не 7');
end;
///write(x) выводит значение переменой;
Умножение в Pascal обозначается знаком «*», а сложение - знаком «+». program number6; uses crt; var A, B, C: integer; begin clrscr; A:=5; writeln (A); writeln ('A'); A:=A+1; Writeln (' Теперь A=',A); B:=7; C:=A*B; writeln ('Произведение=', C); Readln end. Строка №3.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
var b:=a.IndexesOf(t->t=0).Select(t->t+1).ToArray;
b.Println
end.
<u>Пример</u>
n= 15
1 -1 0 2 0 0 -2 -2 -2 -2 0 2 0 -2 -1
3 5 6 11 13