var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18
Целевой яп - C#. Реализован ввод с клавиатуры и проверка на корретность ввода. Пример работы программы приведен на рисунке 1. Код ниже.
using System;
namespace FindPairs
{
class Program
{
static void Main(string[] args)
{
Console.Write("Введите трехзначное число: ");
string input = Console.ReadLine();
int number = 0;
if(input.Length != 3 || !int.TryParse(input, out number))
{
Console.WriteLine("Неверный ввод. Экстренное завершение!");
return;
}
Console.WriteLine("Число, полученное при перестановке первой и второй цифры: {1}{0}{2}", input[0],input[1],input[2]);
}
}
}