Var i, n: integer; k: array[1..12]of real; begin for i := 1 to 10 do begin k[i] := random(-90,90)/10; write(k[i]:5:1); end; writeln; for i:=2 to 12 do if (k[i-1]>0) and (k[i]>0) then n:=n+1; writeln('Число пар: ',n); end.
Не обратил внимания, в условии требуют действительные числа. Хотя целые являются тоже действительными, но для формального выполнения требований изменил: var i, n: integer; k: array[1..12]of real; begin for i := 1 to 10 do begin k[i] := random(-90,90)/10; write(k[i]:5:1); end; writeln; for i:=2 to 12 do if (k[i-1]>0) and (k[i]>0) then n:=n+1; writeln('Число пар: ',n); end.
1 а) writeln(c); или write(c); б) a, s: integer; или a, s: byte; или a, s: word; в) r := p - q;
2 а) на одной строке будет выведено число 9, а на другой числа 5 и 3 б) на одной строке будет выведено число 8, на другой выведется 5-3 и 5+1=6
3 While - цикл с предусловием (условие идет до тела цикла), поэтому он может вообще не выполнятся. Repeat - цикл с постусловием (условие идет уже после тела цикла), поэтому тело этого цикла всегда выполняется минимум 1 раз.
4 var st1: string; i, k: byte; begin write('Введите строку: '); readln(st1); for i:=1 to Length(st1) do if st1[i]= ' ' then inc(k); writeln(k); end.
6 var a, sum: integer; begin write('Введите число: '); readln(a); sum := 0; while a > 0 do begin sum := sum + (a mod 10); a := a div 10; end; writeln('Сумма цифр = ', sum:5); end.
7 var N, k: integer; begin write('Введите число: '); readln(N); k:=0; while N > 0 do begin inc(k); N := N div 10; end; writeln('Количество цифр = ', k:5); end.
8 а) read(d); или readln(d); б) m, n: real; или m, n: double; в) s := p - q;
9 На одной строке будет выведено 2, на другой 5+3 и 5*4=20
10 Ну, думаю, когда заранее неизвестно число итераций (повторений) цикла. Например While eof(f) ("пока не конец файла", тут чисто физически нельзя использовать цикл for). 11 Length(st1), если с выводом, то Writeln('Количество символов: ', Length(st1));
12 var N: integer; begin write('Введите число: '); readln(N); writeln(N div 100); writeln(N div 10 mod 10); writeln(N mod 10); end.
13 Код идентичен заданию 7, блок-схема в приложении
i, n: integer;
k: array[1..12]of real;
begin
for i := 1 to 10 do
begin
k[i] := random(-90,90)/10;
write(k[i]:5:1);
end;
writeln;
for i:=2 to 12 do
if (k[i-1]>0) and (k[i]>0) then n:=n+1;
writeln('Число пар: ',n);
end.
Не обратил внимания, в условии требуют действительные числа. Хотя целые являются тоже действительными, но для формального выполнения требований изменил:
var
i, n: integer;
k: array[1..12]of real;
begin
for i := 1 to 10 do
begin
k[i] := random(-90,90)/10;
write(k[i]:5:1);
end;
writeln;
for i:=2 to 12 do
if (k[i-1]>0) and (k[i]>0) then n:=n+1;
writeln('Число пар: ',n);
end.
а) writeln(c); или write(c);
б) a, s: integer; или a, s: byte; или a, s: word;
в) r := p - q;
2
а) на одной строке будет выведено число 9, а на другой числа 5 и 3
б) на одной строке будет выведено число 8, на другой выведется 5-3 и 5+1=6
3
While - цикл с предусловием (условие идет до тела цикла), поэтому он может вообще не выполнятся. Repeat - цикл с постусловием (условие идет уже после тела цикла), поэтому тело этого цикла всегда выполняется минимум 1 раз.
4
var
st1: string;
i, k: byte;
begin
write('Введите строку: ');
readln(st1);
for i:=1 to Length(st1) do
if st1[i]= ' ' then inc(k);
writeln(k);
end.
6
var
a, sum: integer;
begin
write('Введите число: ');
readln(a);
sum := 0;
while a > 0 do
begin
sum := sum + (a mod 10);
a := a div 10;
end;
writeln('Сумма цифр = ', sum:5);
end.
7
var
N, k: integer;
begin
write('Введите число: ');
readln(N);
k:=0;
while N > 0 do
begin
inc(k);
N := N div 10;
end;
writeln('Количество цифр = ', k:5);
end.
8
а) read(d); или readln(d);
б) m, n: real; или m, n: double;
в) s := p - q;
9
На одной строке будет выведено 2, на другой 5+3 и 5*4=20
10
Ну, думаю, когда заранее неизвестно число итераций (повторений) цикла. Например While eof(f) ("пока не конец файла", тут чисто физически нельзя использовать цикл for).
11
Length(st1), если с выводом, то Writeln('Количество символов: ', Length(st1));
12
var
N: integer;
begin
write('Введите число: ');
readln(N);
writeln(N div 100);
writeln(N div 10 mod 10);
writeln(N mod 10);
end.
13
Код идентичен заданию 7, блок-схема в приложении