1. Определите значение переменной a после выполнения данного алгоритма: a := 3b := 7b := 9+a*ba := b/5*a2. Запишите значение переменной s, полученное в результате работы следующей программы. var n, s: integer;begins := 0;for n := 3 to 7 dos := s + 2 * n;write(s);end.3. Дан условный оператор:If a 5 then b:=1else b:=0

1)

Program a;

const

a:=3;

b:=7;

begin

b:=9+a*b;

a:=b/5*a;

writeln('вивидим значение а', а) ;

end.

2) она полностю готова ☝ у вопросе.

3)

Program

var

a: integer;

begin

readln(a) ;

if a=5 then

b:=1;

else

b:=0;

Writeln(b);

end.

Универсальным устройством ввода информации является клавиатура. Клавиатура позволяет вводить числовую и текстовую информацию.
Для оптического ввода в компьютер и преобразования в компьютерную форму изображений (фотографий, рисунков, слайдов), а также текстовых документов используется сканер.
Для ввода графической информации и для работы с графическим интерфейсом программ используются координатные устройства ввода информации: манипуляторы (мышь, трекбол
звуковая карта, цифровые камеры, тв тюнер.
я бы так ответила)

Uses crt,graph;
var
  gd, gm, xc, yc, r, x, y: integer;

begin
  clrscr;
  repeat
    writeln('Vvedite koordinaty levogo kolca, x=[50..300], y=[50..350]:');
    readln(xc, yc);
  until((xc >= 50) and (xc <= 300)) and ((yc >= 50) and (yc <= 350));
 
  gd := 0;
  initgraph(gd, gm, '');
  setbkcolor(15);
  cleardevice;
 
  r := 50;
  setlinestyle(0, 0, 3);
  setcolor(9);
  circle(xc, yc, r);
  setcolor(8);{темно-серый, черный не нарисовать}
  circle(xc + 2 * r, yc, r);
  setcolor(12);
  circle(xc + 4 * r, yc, r);
  setcolor(14);
  circle(xc + r, yc + r, r);
  setcolor(10);
  circle(xc + 3 * r, yc + r, r);
  readln
end.