Тест по информатике
1. Дать определение цикла.
Цикл с предусловием – это
2. Запишите на языке Паскаль структуру оператора цикла с параметром.
3. Сколько раз будут выполнены циклы в следующих фрагментах программ:
а) for k:= 7 to 28 do …
б) k:= r;
for i:= k to r do …
4. Запишите формулу в нормальном виде
SQRT(SQR(x)+90)/(a-b)*c
Запишите формулу, используя функции и математические операции языка Паскаль.

5. Расставь на свои места команды и операторы так, чтобы получилась программа, которая выводит на экран числа в диапазоне от 20 до 50

1) End.
2) Write (Н‘’);
3) Program Primer;
4) Begin
5) For x: = 20 to 50 do
6) Var Н: integer;

6. Написать программу с использованием оператора цикла для считывания суммы введенных с клавиатуры чисел до тех пор, пока не будет введена единица.

//Вот программа, которая кодирует слова в системах счисления от 2 до 10
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0

var
 a,i,b,r,n,j,bug:integer;
 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.