4 года назад

Составить программу определения количества букв "к" в тексте, введённом с клавиатуры

1 ответ:

Grandex [20]4 года назад

0 0

Присвоить к переменной A текст введенный с клавиатуры.
К переменной i присвоим длину текста в переменной А.
Переменная J присвоить 0.
Переменная к присвоим 0, "к" = количество буквы "к" в тексте
Запустить цикла от J до i с шагом 1.
В теле цикла.
Проверим "к" = А[J] (А[1] = первая буква из теста,)
К переменной "к" присвоить "к+1". при условии если "к" = А[J] .
Если "к" не равно А[J] то без изменения.
Вывод "к"

Читайте также

Как вы думаете,можно ли использовать в выражении оператора присваивания неопределенную переменную? К каким последствиям это може

АЯНr

Если переменная создана уже в варе, то она будет равна 0, а если вообще не создана , то вообще будет ошибка компиляции

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА ДАЮ 50 БАЛЛОВ ОЧЕНЬ ПРОСТОЙ ВОПРОС!Рассчитай объём видеопамяти, необходимой для хранения графического изобра

Noper [50]

Ответ:

Пусть а - глубина цвета, k - кол-во цветов, v - объем.

$k = 2 {}^{a}$

$k = 16777216 = 2 {}^{24}$

$a = 24$

V = M*N*a

V= (800*480*24)/(8*800*800)= (рассчитаешь) мб

0 0

3 года назад

Найти минимальный элемент массива из 10 целых чисел и вывести его на экран с указанием номера(помогите пожалуйста в Pascal)

Жорж Евстегнеев

Я не знаю паскаль. Но вот программа на бейсике. Замените операторы, добавьте объявление переменных и получите свою программу

0 0

3 года назад

Помогите составить программу с оператором while вводятся 5 чисел.определить,сколько среди них положительных(включая 0) и сколько

RyaB0ff [7]

Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.

0 0

4 года назад

Рещите пж!! Паскаль Через :real

Mix Tic [182]

Поскольку повтор вопроса, будет повтор ответа)

program p1;
var
n,m,s:real;
i:integer;
a:array[1..7] of real;
begin
write('Write n: '); readln(n);
write('Write m: '); readln(m);
writeln('Enter the weight of things: ');
for i:=1 to 7 do
read(a[i]);

s:=0;
for i:=1 to 6 do
s:=s+a[i];
if s>20
then
begin
s:=(s-20)*n;
writeln('For luggage: ',s:0:2);
end
else
writeln('For luggage: ',s:0:2);

if a[7]>5
then
begin
a[7]:=(a[7]-5)*m;
writeln('For hand luggage: ',a[7]:0:2);
end
else
writeln('For hand luggage: ',a[7]:0:2);
readln
end.

0 0

4 года назад