1. Какие значения примут переменные после выполнения следующих действий.

n: = 3

m: = 8

n: = m - n

m: = m * n

k: = (m + n) / 3 / n

q: = (k + 27) / n + 2 * k * n

k: = (m + 5) / (q – 2*k)

Ох, как давно на Паскале не кодил.

Но вот :)

program abv;

uses crt;

var a, b:Integer ;

procedure abv(a, b:Integer);

var i, k, count:Integer;

begin

count:=1;

for i:=a to b do

begin

for k:=1 to count do

begin

write(i, ' ');

end;

count:=count+1;

writeln() ; {Эту строку можно убрать, если хочешь, чтобы всё выводилось в одну строчку}

end;

end;

begin

writeln('Введите а:') ;

readln(a);

Writeln('Введите b:');

readln(b);

if (a<b) then

abv (a, b)

else

writeln('Ошибка! Введенные данные неправильны! Закрытие программы...') ;

readln();

end.

Если в Visual Studio, то вот вариант на языке C# (в консоли):

1)

           Console.WriteLine("Как тебя зовут?");

           string name = Console.ReadLine();

           Console.WriteLine("Привет, " + name);

           Console.ReadKey();

2)

           Console.WriteLine("Как тебя зовут?");

           string name = Console.ReadLine();

           Console.WriteLine("Привет, " + name);

           Console.WriteLine("Твоя фамилия?");

           string surname = Console.ReadLine();

           Console.WriteLine("Твоё отчество?");

           string patronymic = Console.ReadLine();

           Console.WriteLine("Привет, " + surname + " " + name + " " + patronymic);

           Console.ReadKey();

Объяснение: