Все категории

4 года назад

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

Знания

Информатика

1 ответ:

Владимир84 года назад

0 0

begin

var str:=ReadString('Введите строку').Length.Print

end.

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

Составить программу вычисления суммы двузначных чисел, которые делятся на 13. Составить в паскале

eeelll

Var i: Integer, sum: Integer;

Begin

for i := 13 to 99 do

if (mod(i, 13) = 0)

sum := sum + i;

write( sum );

end.

0 0

4 года назад

Расположите величины в порядке возрастания: 1010 байтов, 2 байта, 1 кбайт, 20 битов, 10 битов

Elena Kalashnikova

10 битов, 2 байта, 20 битов, 1010 байтов, 1кбайт

0 0

4 года назад

1)СРОЧНО!!!!!!!!! составить программы: Посчитать кол-во гласных и согласных букв в предложении, веденном на русском языке... 2)

marynka [300]

Repeat

read(c);

if c in ['a',сама тут все перечисли:),'y'] then inc(k1);

if c in ['b',сама тут все перечисли:),'z'] then inc(k2);

Until c='.';

только не забудь описать переменные, обнилить их и вывести)

0 0

4 года назад

Помогите пожалуйста! Паскаль. В массиве случайных чисел М(15) . Найти кол-во элементов кратных 4 и которые попадают в интервал [

Restile [37]

Ответ:

var i,m,k:integer; s: array[1..15] of integer;

begin

for i :=1 to 15 do begin

s[i]:= random (-5,3);

if (s[i] mod 4) = 0 then k:= k +1;

end;

writeln(s);

write('k = ', k);

end.

Объяснение:

программа выводит массив и количество элементов кратных 4

0 0

4 года назад

Что называется алгоритмом? Выберите один ответ: Алгоритм - описание последовательности действий (план), для решения задачи. Ал

Nyako [38]

Алгоритм-примерный план для решения задачи.

0 0

4 года назад