Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.
Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
<span>Var s:string; i:integer; </span>
<span>Begin </span>
<span>Readln(s); i:=length(s); </span>
<span>while (i>0) and (s [ i]=' ') do i:=i-1; </span>
<span>if i=0 then Writeln('слова в строке не обнаружены') </span>
<span>else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' '); </span>
<span>End. </span>
#1
<script>
var b = document.getElementsById("process");
b.onclick = function() {
alert("yipee, button is pressed! :)");
}
</script>
<button id="process">PRESS THERE</button>
#2
<script>
<span>var image = document.getElementsById("image");
</span>image.<span>onmouseenter = function() {
alert("Вам нравится эта картинка?");
}</span>
</script>
<img id="image" src="" width="200px" height="200px">
Program menu;
uses crt;
var m, i: integer;
n, z, x, b: longint;
begin
Writeln('Выберете пункт меню:');
Writeln('[1]Вычисление суммы цыфр числа N');
Writeln('[2]Вывод на экран таблицы квадратов первого десятка');
Writeln('[3]Дано число N. Определить его четность');
Writeln('[4]Выход');
read(m);
case m of 1:
begin
clrscr;
writeln('Введите число N:');
read(n);
x := 10;
z := n mod x;
while n div x > 0 do
begin
b := x;
x := x * 10;
z := z + n mod x div b;
end;
Writeln('Ответ: ', z);
end;
2: begin
clrscr;
for i := 1 to 10 do
begin
writeln('Квадрат ', i, ' = ', sqr(i));
end;
end;
3: begin
clrscr;
writeln('Введите число N:');
read(n);
if (n mod 2 ) = 0 then writeln('Число ', n, ' четное.') else writeln('Число ', n, ' не четное.');
end;
4: exit; end;
<span>end.</span>