1 год назад

Помогите пожалуйста составить программу в паскале! Дан текст. Вывести на экран слова, содержащие N букв

1 ответ:

0 0

//Pascal ABC.NET 3.1 сборка 1219

Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.

<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека

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

Составьте программу вычисления значения выражения для данного натурального числа N: 6+12+18+ … +6•N

Родион1231234

пожалуйста, решение во вложениях :)

0 0

4 года назад

Наташа написала реферат в котором получилось 10 страниц, на каждой странице по 35 строк, а в каждой строке по 79 символов

Максим66690 [1]

Кол-во символов = 10*35*79 = 27650;
8 бит = 1 байт;
объём реферата = 27650*1 байт = 27650 байт.

0 0

4 года назад

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

Назовем натуральное число сверхнечетным, если оно состоит только из нечетных цифр. Требуется для заданного значения n найти n-е

Шишка23 [1]

Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v+1;
end
else if i mod 2<>0 then v:=v+1;
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.

Все работает я проверил

0 0

4 года назад

В одной из кодировок Unicode каждый символ кодируется 16 битами.Семь раз отмерь, один раз отреж!

Анастасия14755 [1]

В фразе "<span>Семь раз отмерь, один раз отрежь!" 33 символа.
33*16 = 528 бит или 66 байт
</span>

0 0

4 года назад

Сколько будет цифр 1 в двоичном представлении десятичного числа 14?

Григорий1992

Переводим из 10 в N-ричную СС путем деления десятичного числа на основание необходимой СС. (N = 2)

Ответ:3

0 0

4 года назад