Question

1.Описать следующие переменные по образцу: var i:integer;

1) x1, x2- целочисленные;

2) y1, y2- вещественные;

3) a- строковую;

4) b- логическую;

5) c- символьную.

2. Записать операторы ввода вывода по заданиям:

1) Ввести переменные x1, x2 без перехода курсора на новую строку;

2) Вывести текст "школа №16" с переходом курсора на новую строку;

3) Ввести переменную а с переходом курсора на новую строку;

4) Вывести значение переменной b с пояснением без перехода курсора на новую строку.

3.Записать условный оператор на Паскале;

1)Если x>0, то вывести «положительное» иначе если x<0, то вывести «отрицательное» иначе вывести «=0»;

2)Если а>=10 и a<=99, то вывести «двузначное».

4.Записать цикл на языке Паскаль;

1)Пока а>0 делать а присвоить а-5;

2)Повторять x присвоить x+2 до тех пор, пока x>20;

3)для y от 5 до 10 делать s присвоить s+3.

Заранее

Answer 1

1) var: x1, x2:integer;

y1,y2:real;

a:string;

b:boolean;

c:char;

2) read(x1,x2);

writeln("школа №16");

readln(a);

write(b);

3) 1)

if (x>0) then

writeln("положительное")

else if (x<0) then

writeln("отрицательное")

else

writeln("=0);

3) 2)

 if (a >= 10 and a <= 99) then

  writeln("двузначное");

4) 1)while (a>0) do

     a := a - 5;

4) 2)repeat

     x := x + 2;

   until x > 20

4) 3) for y:=5 to 10 do

              s := s + 3