Решите Определите, что будет напечатано в результате работы следующего
фрагмента программы:
var n, s: integer;
begin
n := 3;
s := 0;
repeat
s := s + n;
n := n + 1
until n >= 7;
write(s);
end.
2. Запишите число, которое будет выведено в результате работы программы:
var s, n: integer;
begin
s := 0;
n := 0;
while s*s <= 10*s do begin
s := s + 1;
n := n + 2
end;
writeln(n)
end.
3. Запишите значение переменной d, полученное в результате работы следую-
щей программы.
Var d,n,i:integer;
Begin
n := 4;
d := n*2;
For i := 1 to 3 do
d := d + 2*i;
Writeln(d);
End.
4. Дана программа:
Паскаль
var s,t: integer;
begin
readln(s);
readln(t);
if (s > 10) or (t > 10)
then writeln('ДА')
else writeln('НЕТ')
end.
Было проведено 9 запусков этой программы, при которых в качестве значений
переменных s и t вводились следующие пары чисел:
(1, 2); (11, 2); (1, 12); (11, 12); (–11, –12);(–11, 12); (–12, 11); (10, 10); (10, 5)
Сколько было запусков, при которых программа напечатала «ДА»?
5*. Запишите число, которое будет напечатано в результате выполнения
следующей программы:
var n, s: integer;
begin
n := 2;
s := 0;
while s <= 365 do begin
s := s + n;
n := n + 5
end;
write(n)
end.
2. Числительные в русском языке классифицируются по составу и по значению. По составу они делятся на простые, сложные и составные. Пример простых числительных: четыре, пять. Пример сложных числительных: шестьдесят, пятьсот. Пример составных числительных: тридцать пять, сто пятьдесят четыре. По значению числительные делятся на порядковые и количественные. Пример порядковых числительных: второй, девятый. Пример количественных числительных: шесть, два.
Представить информацию о классификации в русском языке в виде графа. Является ли полученный граф деревом?
USES CRT;
VAR A:array[1..5,1..5] of integer;
i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize;
{заполняем массив случайными числами от 0 до 10}
for i:=1 to 5 do
for j:=1 to 5 do
A[i,j]:=random(10);
{Выводим массив на экран}
for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:2, ' ');
Writeln;
end;
min:=A[1,1]; {Присваиваем минимальному значению первый элемент массива}
{Ищем минимальный элемент в массиве}
for i:=1 to 5 do
for j:=1 to 5 do
if A[i,j]<min then min:=A[i,j];
Writeln('Минимальный элемент в данном массиве = ',min);
{Обнуляем счетчик}
s:=0;
{Считаем сколько минимальных элементов в каждой строке и выводим на экран}
for i:=1 to 5 do
begin
for j:=1 to 5 do
if A[i,j]=min then s:=s+1;
Writeln('В ',i,' строке минимальный элемент встечается ',s,' раз'); s:=0;
end;
READLN;
END.