Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
Напишите процедуру, которая выводит на экран сумму трёх целых чисел.
program pascal_procedure_amount;
procedure sum( s1 , s2 , s3 : integer );
begin // начало тела процедуры
write( s1 + s2 + s3 ) ;
end; // конец тела процедуры
begin // начало тела основной программы
sum( 43 , 54 , 32 );// вызов прoцедуры
end. // конец тела основной программы
Пользователь вводит символ ch и строку s
посчитайте сколько раз символ ch встречается в строке s
program pascal_char_in_string1;
var i,amount :integer;
s : string;
ch : char;
begin
writeln('input char and string : ' );
readln( ch, s );
amount := 0;
for i := 1 to length( s ) do
begin
if( s[i] = ch ) then
amount+=1;
end;
writeln( 'amount char ',ch, ' in string : ' , amount )
program pascal_matrica1;
var i , j ,n1 , n2 : integer;
begin
n1 := 5;
n2 := 8 ;
for i := 1 to n1 do
begin
for j := 1 to n2 do
begin
if ( i = 1 ) or ( i = n1 ) then
write( 'x' )
else
begin
if ( j = 1 ) or ( j = n2 ) then
write( 'x' )
else
write( 'o' );
end;
end;
writeln();
end;
readln();
end.
