{1.} var i: integer; s: string; begin write('Введите строку: '); read(s); writeln('Номера позиций символа ",": '); for i := 1 to length(s) do if s[i] = ',' then write(i:4); end.
{2.} var i: integer; s: string; begin writeln('Введите строку: '); read(s); for i := 1 to length(s) do if s[i] in ['а', 'о', 'э', 'и', 'у', 'ы', 'е', 'ё', 'ю', 'я'] then s[i] := '*'; writeln(s); end.
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrReal('Введите 4 числа:',4); if Frac(a.Sum/(a[3]-a[2]))=0 then Writeln('Целый результат') else Writeln('Нецелый результат') end.
Примеры Введите 4 числа: 7.2 1.8 25.5 5.5 Целый результат
Введите 4 числа: 36 18.6 12 5 Нецелый результат
Объяснения: Первый (после begin) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными. Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.
var
i: integer;
s: string;
begin
write('Введите строку: ');
read(s);
writeln('Номера позиций символа ",": ');
for i := 1 to length(s) do
if s[i] = ',' then write(i:4);
end.
{2.}
var
i: integer; s: string;
begin
writeln('Введите строку: ');
read(s);
for i := 1 to length(s) do
if s[i] in ['а', 'о', 'э', 'и', 'у', 'ы', 'е', 'ё', 'ю', 'я'] then s[i] := '*'; writeln(s);
end.