<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
// Вводим строку с клавиатуры, приводим буквы к строчным,
// разбиваем на слова по пробелу и помещаем их в массив aW
var aW:=ReadlnString('->').ToLower.ToWords;
// Пропускаем массив через фильтр, оставляющий слова, содержащие
// русскую букву "а" и подсчитываем, сколько слов прошло через него.
// Полученное количество выводим.
Writeln('Слов с "а": ',aW.Where(w->Pos('а',w)>0).Count)
end.
Пример
-> Наша Таня громко плачет: уронила в речку мячик
Слов с "а": 4
var year,month,day,a,b,c,d,e,f,g: integer;
begin
readln(year);
a := year mod 4;
b := year mod 7;
c := year mod 19;
d := ( 19 * c + 15 ) mod 30;
e := ( 2 * a + 4 * b - d + 34 ) mod 7;
f := 3 + (d + e + 21) div 31;
g := ( d + e + 21 ) mod 31;
month := f;
day := g + 1;
writeln(day,' ',month);
end.
Var a,x,n: real;begin write('Введите n '); readln(r);
a=0;
x=1; while x<=n do begin
a:=a+a*x;
x:=x+1;
end; writeln('summaRada', a);end.
Эм... я знаю только Си, в школе был Пасrаль, вроде бы все верно, проверить не могу, т.к. проги нужной нет, но суть вроде передана
Program qq;
var k, a, b, c: integer;
begin
for k:=100 to 999 do begin
a:=k div 100;
b:=k mod 100;
b:=b div 10;
c:=k mod 10;
if a*a*a+b*b*b+c*c*c=k then begin
writeln (k);
end;
end;
end.
