Const n = 15; var a:array[1..n]of integer; i,m,min5:integer; f:boolean; begin for i:=1 to n do begin write('Введите ',i,' член массива '); readln(a[i]); if a[i] mod 5=0 then begin m:=m+1; if not f then begin min5:=a[i]; f:= not f; end; if (f) and (a[i]<min5) then min5:=a[i]; end; end; writeln('Кратных 5: ',m:3,' Минимальный: ',min5:4); end.
Тестовое решение Введите 1 член массива 13 Введите 2 член массива 10 Введите 3 член массива 15 Введите 4 член массива 5 Введите 5 член массива 25 Введите 6 член массива 23 Введите 7 член массива 12 Введите 8 член массива 32 Введите 9 член массива 11 Введите 10 член массива 21 Введите 11 член массива 43 Введите 12 член массива 15 Введите 13 член массива 25 Введите 14 член массива 13 Введите 15 член массива 14 Кратных 5: 6 Минимальный: 5
1. Программа в одной из современных версий Паскаля:
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016 begin var s:=ReadlnString('Исходная строка:'); Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString('')); end.
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016 const legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё']; var s:string; i:integer; begin Write('Исходная строка: '); Readln(s); for i:=Length(s) downto 1 do if not(s[i] in legal) then Delete(s,i,1); Writeln('Результат: ',s); end.
var i: integer;
begin
for i:=0 to 8 do writeln('при x=',i,' y=',i*i+3);
end.