3 года назад

Напишите программу которая будет сколько букв в написанном предложении пробелы не должен читать делать в паскале

1 ответ:

Lionse [29]3 года назад

0 0

//Pascal ABC.NET v3.1 сборка 1172

Var
s:string;
i,k:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then inc(k);
writeln(k);
end.

Пример ввода:
Очень много мячей
Пример вывода:
15

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

Для хранения растворимого изображения размером 128 64 пикселя отвели 8 кбайт памяти Определите максимально возможное количество

феникс1971 [28]

Дано: K=64*128
I=8Кбайт
Найти N

K=64*128=8192 пикселей всего
I=8 КБайт=65536 бит
I=K*i
i= 65536/8192=8 бит
По формуле N=2^i
следует что N=2^8=256
Ответ: 256 Цветов в палитре изображения

0 0

2 года назад

Напишите программу на python. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число,

Никуся [15]

n = int(input())
max5 = 0
for i in (1, n+1):
a = int(input())
if a % 5 == 0 and a > max5:
max5 = a
print(max5)

0 0

4 года назад

Из элементов массива Р сформировать массив М того же размера по правилу: если номер четный , то Рi=i*Mi, если нечетный, то Рi=-M

DavidRojkibins

uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;

begin
ClrScr;
for i:=1 to n do
   P[i]:=10+random(20);
for i:= 1 to n do
    Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
   if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.

0 0

3 года назад

Здравствуйте, помогите, пожалуйста, составить алгоритмы на языке "Кумир" 1. Вводятся три числа a, b, c если сумма a и b четная,

g3984019

1)
цел a, b, c
алг
нач
ввод a,b,c
если mod(a+b,2)=0 то
вывод (a+b)/c
иначе
вывод (a+b)*c
все
кон

2)
цел a,d1,d2
алг
нач
ввод a
если (a>9) и (a<99) то
d1:=div(a,10);
d2:=mod(a,10);
вывод d1*d2
вывод' '
вывод d1+d2
вывод' '
вывод d1-d2
иначе
вывод 'ошибка'
все
кон

0 0

4 года назад

Вычислите периметр и площадь прямоугольного треугольника по длинам двух его катетов

Дергунов [48]

Пусть
а - один катет
б - второй
Тогда площадь равна а*б делить на 2
Периметр равен сумме длин всех сторон, для этого найдем гипотинузу по теореме пифагора а квадрат + б квадрат, результат берем под корень,
затем скаладываем а, б и гипотинузу

0 0

4 года назад