Если в Visual Studio, то вот вариант на языке C# (в консоли):
1)
Console.WriteLine("Как тебя зовут?");
string name = Console.ReadLine();
Console.WriteLine("Привет, " + name);
Console.ReadKey();
2)
Console.WriteLine("Твоя фамилия?");
string surname = Console.ReadLine();
Console.WriteLine("Твоё отчество?");
string patronymic = Console.ReadLine();
Console.WriteLine("Привет, " + surname + " " + name + " " + patronymic);
Объяснение:
Ох, как давно на Паскале не кодил.
Но вот :)
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
for k:=1 to count do
write(i, ' ');
end;
count:=count+1;
writeln() ; {Эту строку можно убрать, если хочешь, чтобы всё выводилось в одну строчку}
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();
Объяснение:
Ох, как давно на Паскале не кодил.
Но вот :)
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.