Регистрация
Riiiiiii
11.10.2020 18:09
Информатика
Есть ответ 👍

Написать программы Pascal по следующим условиям:

1. Дана строка и натуральное число N. Если длина строки превышает N, то урезать строку до N символов.

2. Для заданного символа определить, сколько раз он встречается во введённом тексте (двумя с циклом For и с циклом Repeat).

175
460
Посмотреть ответы 2

Ответы на вопрос:

marinavn2008
marinavn2008
4,4(81 оценок)

1.

var N: integer;

var s: string;

begin

write('Введите строку: ');

readln(s);

write('Введите N: ');

readln(N);

if (s.Length>N) then s:=s.Substring(0,N);

writeln('Результат: ',s);

end.

2.1 (С циклом For)

var s: string;

var c: char;

var i,n: integer;

begin

n:=0;

write('Введите строку: ');

readln(s);

write('Введите символ: ');

readln(c);

for i:=1 to s.Length do

if (s[i]=c) then n:=n+1;

writeln('Символ ',c,' встречается в тексте ',n,' раз');

end.

2.2 (С циклом Repeat)

var s: string;

var c: char;

var i,n: integer;

begin

n:=0;

i:=1;

write('Введите строку: ');

readln(s);

write('Введите символ: ');

readln(c);

Repeat begin

if (s[i]=c) then n:=n+1;

i:=i+1;

end;

until i=s.Length+1;

writeln('Символ ',c,' встречается в тексте ',n,' раз');

end.

Дашенька1365
Дашенька1365
4,6(7 оценок)

program til91946;

const n = 20;

type mas = array [1..n] of integer;

var a, b, c, d: mas;

   i: integer;

begin

writeln('В столбцы A, B, C введите любые 20 чисел. Из произведения чисел столбцов A и C в столбце D сделайте вычитание чисел столбцов B, C.');

writeln;

randomize;

writeln('A B C D');

for i := 1 to n do

begin

 a[i] := random(201) - 150;

 b[i] := random(201) - 150;

 c[i] := random(201) - 150;

 d[i] := a[i] * c[i] - c[i] - b[i];

 writeln(a[i], ' ', b[i], ' ', c[i], ' ', d[i]);

end;

readln;

end.

Популярно: Информатика