Написать программу в pascal.дан набор слов, разделенных точкой с запятой (; ). набор заканчивается двоеточием (: ). определить, сколько в нем слов, заканчивающихся буквой а.
begin readln(str); str := str.Replace(':', ''); foreach c: string in str.Split(';') do if (c[c.Length] in ['a', 'а']) then //не уточнено, какого алфавита "а" i += 1; writeln(i); end.
uses crt; var a, b, c, n, i, j :integer; s :array [1..10000] of integer; begin clrscr; writeln ('Vvedite razmer masiva'); read (n); writeln ('Vvedite chislo X'); read (a); for i:=1 to n do begin writeln ('Vvedit s[', i, '] element'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do if s[j]<s[j+1] then begin b:=s[j]; s[j]:=s[j+1]; s[j+1]:=b; end; for i:=1 to n do begin write (s[i], ' '); if s[i]=a then inc (c); end; writeln; if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet'); end.
Это что, метод решения показать ?!Ч.Я. (с точки зрения физики) - метод исследования таких систем, когда вместо свойств и взаимосвязей составных частей системы, изучается реакция системы, как целого, на изменяющиеся условия! Что за чем: 1 - анализ условия задачи и определение основных теоретических данных необходимых для исследования (т.е. определений, законов) 2 - выбор приборов для исследования 3 - сборка электрической цепи 4 - определение параметров цепи по показаниям приборов 5 - анализ полученных данных 6 - общий вывод 7 - сверка полученного результата с заданным конструктором решением 8 - анализ ошибочных действий исследователем (если они допущены) Ч.Я. компьютер - это система, в которой внешнему наблюдателю доступны лишь входные и выходные величины, а структура и внутренние процессы неизвестны ))
str: string;
i : byte;
begin
readln(str);
str := str.Replace(':', '');
foreach c: string in str.Split(';') do
if (c[c.Length] in ['a', 'а']) then //не уточнено, какого алфавита "а"
i += 1;
writeln(i);
end.