1 год назад

Дана строка .Определить :есть ли в данной строке буква "ш" (расская,маленькая буква) паскаль,помогите пожалуйста;)

1 ответ:

brig701 год назад

0 0

Var S:string;
begin
Writeln('Введите строку');
If not(Pos('ш',S)=0) then
Writeln('буква ш есть')
else
Writeln('буквы ш нету');
end.

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

Доделать праграмму с массивом,и вывести сумму. Карандошом(если элемент отрицательн то сосчитать сумму выводи сумму). M=7 T-назва

YanaS [7]

Const M=7
var T:array[1..7] of Integer;
N,i:integer;
begin
For i:=1 to M do
Readln(T[i]);
For i:=1 to M do
N:=N+T[i];
Writeln(T);
end.

0 0

4 года назад

Пожалуйста, помогите срочно!! Чертёжнику был дан для исполнения следующий алгоритм: Повтори 3 раз Сместиться на (−12,−7) Сместит

Юлия1989у [12]

Ответ:

(39;-15)

Объяснение:

0 0

4 года назад

Начав тренировки,спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. К

-Tamila-

Program pr; var norma,total:real;day:integer; begin norma:=10; day:=0; repeat day:=day+1; writeln('День: ',day); writeln('Норма: ',norma:0:1,' км'); writeln(); total:=total+norma; norma:=norma*1.1; until day=7; writeln(); writeln('Всего: ',total:0:1); end.

0 0

4 года назад

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

Расположить числа в порядке возрастания 1001011 (2),51 (8),4а(16)

Даниил Ивановс [7]

1001011_2 = 75_10
51_8 = 41_10
4A_16 = 74_10

51_8 --> 4A_16 --> 1001011_2

0 0

3 года назад

Дана матрица 10x14, заданная случайными числами на интервале [-180;320]. Подсчитать количество элементов больших,чем заданное чи

bull1970

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;

begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.

0 0

3 года назад