11. Что будет выведено на экран в результате работы следующего цикла (k – целая переменная)?
а)
k:= 1
нц пока k < 5
вывод k, ' '
k:= k + 1;
кц k:= 1;
while k < 5 do begin
write(k, ' ');
k:= k + 1
end;
ответ:
б) k:= 4
нц пока k < 10
вывод k*k, ' '
k:= k + 2;
кц k:= 4;
while k < 10 do begin
write(k*k, ' ');
k:= k + 1
end;
ответ:
в) k:= 12
нц пока k > 3
вывод 2*k+1, ' '
k:= k - 2;
кц k:= 12;
while k > 3 do begin
write(2*k-1, ' ');
k:= k - 1
end;
ответ:
г) k:= 5
нц пока k < 10
вывод k*k, ' '
k:= k + 2;
кц k:= 5;
while k < 10 do begin
write(k*k, ' ');
k:= k + 1
end;
ответ:
д) k:= 15
нц пока k > 6
вывод k, ' '
k:= k - 2;
кц k:= 15;
while k > 6 do begin
write(k-1, ' ');
k:= k - 1
end;
Пример на языке с++, дошел только для этого
#include<iostream>
using namespace std;
int min(int a, int b, int c, int d)
{
int min1 = 0;
int min2 = 0;
if (a < b)
{
min1 = a;
}
else
{
min1 = b;
}
if (c < d)
{
min2 = c;
}
else
{
min2 = d;
}
if (min1 < min2)
{
cout << "Наименьшее из чисел: " << min1 << endl;
}
else
{
cout << "Наименьшее из чисел: " << min2 << endl;
}
return 0;
}
int main()
{
setlocale(LC_ALL,"RUSSIAN");
min(10,20,30,40);
return 0;
}
const n=10;
var
min,i: integer;
a: array[1..n] of integer;
begin
randomize;
min:=11;
for i:=1 to n do begin
a[i]:=random(1,10);
write (a[i],' '); // для наглядности. можно удалить
if (i mod 2 =1) and (a[i]<min)
then min:=a[i];
end;
writeln;
writeln ('min = ',min)
end.
Пример:
5 4 7 8 6 2 10 4 9 9
min = 5
2 задача:
const n=10;
var
max,count,i: integer;
a: array[1..n] of integer;
begin
randomize;
max:=0;
count:=0;
for i:=1 to n do begin
a[i]:=random(1,10);
write (a[i],' '); // для наглядности. можно удалить
if a[i]>max
then max:=a[i];
end;
for i:=1 to n do
if max=a[i] then count:=count+1;
writeln;
writeln ('max = ',max);
writeln ('count = ',count);
end.
Пример:
8 5 3 2 2 10 10 9 3 10
max = 10
count = 3