1. напишите процедуру, которая выводит на экран фразу «я люблю паскаль» заданное в ее параметре количество раз. 2. напишите процедуру, которая выводит на экран решение линейного уравнения ax + b = 0. параметры а и b являются параметрами процедуры.

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

procedure Love(n:integer);
begin
  Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;

begin
  Love(ReadInteger('n='))
end.

Пример
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

procedure LinEqu(a,b:real);
begin
  if a=0 then
    if b=0 then Writeln('Решений бесконечно много')
    else Writeln('решений нет')
  else Writeln('x=',-b/a)
end;

begin
  var a,b:real;
  Write('Введите а и b: '); Read(a,b);
  LinEqu(a,b)
end.

Пример
Введите а и b: 18.45 -12
x=0.650406504065041

ответ:

ну смотрите. как многие знают, у нас, в россии, игры стоят намного дешевле, чем на западе. именно этот факт заставил многие компании задуматься насчет создания специализированных версий игр - допустим, в steam для россии доступна только borderlands 2 ru, которую вы не запустите в сша, ибо у нас она стоит дешевле. а есть и международная версия. но здесь вопрос про ps4.

если зайти в ps store, то мы увидим, что цены здесь больше чем в том же steam, и вполне соответствуют ценам на западе (хотя все равно чутка дешевле). просто посмотрите слева в "подробностях" какой-либо игры, какие есть субтитры: к примеру, на странице tekken 7 в ps store написано, что доступны арабские, , , , итальянские, французские и испанские субтитры (имеется ввиду общий текст). таким образом, вы вполне можете посмотреть, есть ли в настройках возможность изменить язык, а если и нет, то тогда просто попробуйте поменять язык консоли.

1)

program raf105;

var i,j,del:integer;

begin

for i:=10 to 99 do

begin

 del:=0;

 for j:=1 to i do

 begin

   if (i mod j)=0

     then del:= del+1;

 end;

 if del=3

   then writeln(i);

end;  

end.

2)

program raf105;

var a,b,c:integer;

x:boolean;

begin

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

readln(a);

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

readln(c);

while a<>0 do

begin

 b:= a mod 10;

 if x=false

   then x:= b=c;

 a:= (a-b) div 10;

end;

if x

 then writeln('В ведённом числе есть искомая цифра')

 else writeln('В ведённом числе нет искомой цифры');

end.

3)

a) 2

b) 1

c) 0

d) 1

e) бесконечно

Язык программирования PascalABC