3 года назад

Составить программу в pascalопределить сколько слов в тексте ( слово - это набор символов,разделенных пробелом )

Знания

Информатика

1 ответ:

Emul3 года назад

0 0

<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

ReadlnString.ToWords.Count.Println

end.

<h2>Пример</h2>

Наша Маша громко плачет уронила в речку мячик

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

Сколько существует целых положительных чисел, меньших 2015, квадрат которых делится без остатка на 15?

lyowa [1.2K]

Это все целые числа , которые делятся на 15. Таких всего : целая часть от (2015/15)=134 (если число делится на 15, то и его квадрат делится на 15)

0 0

3 года назад

Прочитать ещё 2 ответа

Pascal ABCЗадания #11)Вывести на экран числа от 10 до 150 с шагом 10.2)Вывести на экран числа от 100 до 200 с шагом 10 в обратно

1Вася

Задание #1

var a:integer;

begin

a:=10;

while a<=150 do

begin

write (a,' ');

a:=a+10

end;

writeln;

a:=200;

repeat

write (a,' ');

a:=a-10

until a<100

end.

Задание #2

var a,b:integer;

begin

readln(a,b);

if a>b then write (a) else write (b)

end.

Задания #3

var a,b,c:integer;

begin

readln(a,b,c);

if (a>b) and (a>c) then write (a,' ',b+c);

if (b>a) and (b>c) then write (b,' ',a+c);

if (c>a) and (c>b) then write (c,' ',a+b)

end.

0 0

3 года назад

Викресли зайве.Що залишилося? запиши одним словом. малювання, записування, виконання обчислень, фотографування

tuscan23

Репрезентации а лишнее записование

0 0

4 года назад

Автомат получает на вход пятизначное десятичное число. По полученному числу строится новое десятичное число по следующим правила

НинаПолетаева

Мне кажется,что два:1320 и 213

0 0

4 года назад

Выведите на экран все двузначные числа, которые при возведении в квадрат дают палиндром.Pascal Abc

Huuma [7]

Var x,a:integer;
begin
x:=10;
while (x<100) do
begin
a:=x*x;
if (a<999) then
begin
if (((a mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)then
writeln(x);
end
else
begin
if (((a mod 10)*1000 + ((a mod 100)div 10)*100 + ((a mod 1000)div 100)*10 + (a div 100))=a)then
writeln(x);
end;
x:=x+1;
end;
end.

0 0

4 года назад