Если на Pascal, то вот:
program pr1;
var a:real;
begin
write("Введите число ");
readln(a);
writeln("Вы ввели число ", a);
end.
Ответ:
Блок схема
Объяснение:
В прямоугольной области описывается действие, в параллелограмме ввод или вывод.
# include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int n, n_copy, min1, min2, temp;
min1 = 9; min2 = 9;
cout << "Введите число: "; cin >> n;
n_copy = n;
while (n > 0) {
temp = n % 10;
if (temp < min1)
min1 = temp;
n = n / 10;
}
cout << "Первое минимальное = " << min1 << endl;
n = n_copy;
int b = 0;
while (n) {
if (n % 10 != min1) b = b * 10 + n % 10;
n /= 10;
}
while (b) {
n = n * 10 + b % 10;
b /= 10;
}
while (n > 0) {
temp = n % 10;
if (temp < min2)
min2 = temp;
n = n / 10;
}
cout << "Второе минимальное = " << min2 << endl;
int sum = min1 + min2;
if (sum % 2 == 0)
cout << "Сумма двух минимальных цифр " << min1 << "+" << min2 << "=" << sum << " четная." << endl;
else
cout << "Сумма двух минимальных цифр " << min1 << "+" << min2 << "=" << sum << " не четная." << endl;
system("pause");
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>
</h3><h3 />
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
<em><u>Пример в приложении.</u></em>
Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.