подредьте прогу на тему строки

@креньдель · Регистрация: 03.12.2009

Author24 — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var s:string; i,n:integer; a,z:word;
begin
  writeln('vvedite stroku');
    readln(s);
 
     n:=0;
 
      for i := a to z do begin
 
      for a :=n  to  Length(s) do
      n:=a;
        if n<>0 then   n:=n+1;
 
    writeln('a=',n);
  end;
readln;
end.

Добавлено через 5 минут
дана строка . определить кол-во всех букв "a" в строке

@hello32 · 18.04.2010, 03:01

Сообщение от креньдель

var s:string; i,n:integer; a,z:word;
begin
writeln('vvedite stroku');
readln(s);

n:=0;

for i := a to z do begin

for a :=n to Length(s) do
n:=a;
if n<>0 then n:=n+1;

writeln('a=',n);
end;
readln;
end.

Добавлено через 5 минут
дана строка . определить кол-во всех букв "a" в строке

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
 s: string;
 i, col: integer;
begin
 writeln('vvedite stroku');
 col:=0;
 readln(s);
 
 for i:=1 to length(s) do
  begin
    if s[i]='a' then inc(col);
  end;
 
 writeln('a=', col);
 readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .	Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .
Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .	Async/await в C#: Асинхронное программирование в действии UnmanagedCoder 19.03.2025 Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .	Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .

Опции темы

подредьте прогу на тему строки

Решение