<span>var {секция описания переменных}
Number,Num1,Num2,Sum: integer;
begin{начало программы}
write('Введите двухзначное число: ');//Вывод строки на экран
read(Number); //переменная Number получает значение с клавиатуры
Num1 := Number div 10; //В Num1 целая часть от деления Number на 10
Num2 := Number mod 10; </span>//В Num2 остаток от деления Number на 10<span>
Sum := Num1 + Num2; //находим сумму Num1 и Num2
write('Сумма двух чисел — ',Sum);//вывод результата на экран
end. {конец программы}</span>
<span>a = int(input("a = "))
sise = <span>0
</span>for i in range(1,a+1,2):
print(i)
sise += i
print("Suma ",sise)</span>
Целевой яп - 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]);
}
}
}
var
a: array [1..4] of char;
s: string;
i: byte := 1;
begin
readln(s);
while (i < length(s)) do
begin
if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then
delete(s, i, 1)
else
i += 1;
end;
writeln(s);
end.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
<span>=А1+А2 (арифмитическое сложение)</span>