Используя текстовые функции пстр(…), найти(…), длстр(…), левсимв(…), правсимв(…), & (сцепить текстовые строки), заполнить вставленные столбцы. В столбце, содержащем фамилию и инициалы, инициалы должны отделяться друг от друга точкой и пробелом, а от фамилии – пробелом
119
392
Ответы на вопрос:
1) От 10 до 14
2) random(1, 10); random(-10,10); random(50,100);
3)
var a:array[1..100] of integer;
i, p, o:integer;
begin
p := 0;
o := 0;
for i := 1 to 100 do
a[i] := random(-20, 20);
writeln(a);
for i := 1 to 100 do begin
if a[i] >= 0 then p := p + 1
else o := o + 1;
end;
writeln('Положительных: ' + p);
writeln('Отрицательных: ' + o);
end.
4)
var a:array[1..20] of integer;
b:array[1..20] of integer;
i:integer;
begin
randomize;
for i := 1 to 20 do
begin
a[i] := random(1, 5);
b[i] := random(1, 5);
end;
for i := 1 to 20 do begin
if a[i] = b[i] then begin
writeln('Номер: ' + i);
writeln('Значение: ' + a[i]);
end;
end;
end.
Популярно: Информатика
-
BaBaika32218.01.2023 18:52
-
Ане4ка2117.04.2021 06:27
-
BackedSmile17.10.2020 12:24
-
VlStar19.06.2023 23:19
-
skyblue119.12.2020 00:18
-
bonbino105.04.2021 14:52
-
baklazhan200415.03.2021 06:02
-
kiki12126.10.2021 03:36
-
gjkbyf2006197428.02.2021 23:56
-
IFRASHDIFRASHD26.09.2021 13:17