var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln('Первый символ: "', s[1], '" Второй символ: "', s[2], '" Последний символ: "', s[length(s)], '');
end.

0 0

4 года назад

Использовать цикл пока А, В, С, в кумире Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколь

Дамир4ик [56]

В "кумире" это на языке "кумира"?

0 0

4 года назад

Сделать Блок-Схему и программу в Pascal Сгенерировать элементы массива вещественного типа случайным образом в заданном диапазоне

Рустам Мансурович

Зачем нам вещественный массив?

var

i, j, n: integer;

tmp: double;

mas: array[1..101] of double;

begin

randomize;

readln(n);

for i:=1 to n do

begin

mas[i]:= random(-100,107);

end;

for i:=1 to n do

for j:=1 to n do

if mas[j]>mas[j+1] then

begin

tmp:=mas[j];

mas[j]:=mas[j+1];

mas[j+1]:=tmp;

end;

for i:=1 to n do

write(mas[i], ' ');

end.

0 0

1 год назад

Вставь пропущенные слова: -это упрощенный заменитель реального обьекта

vikorys [20]

Модель- это упрощенный заменитель реального объекта. :3

0 0

3 года назад