ПРОЦ буква_М ПРОЦ буква_И ПРОЦ буква_Р Начало сдвинь на вектор (1:1) Начало Начало опусти перо сдвинь на вектор (0:4). опусти перо сдвинь на вектор (0;4) опусти перо сдвинь на вектор (0:4) сдвинь на вектор (1;-2) сдвинь на вектор (0;-4) сдвинь на вектор (2;0) сдвинь на вектор (1;2) сдвинь на вектор (2;4) сдвинь на вектор (0;-2) сдвинь на вектор (0;-4) сдвинь на вектор (0;-4) сдвинь на вектор (-2;0) подними перо подними перо подними перо сдвинь на вектор (1;0) сдвинь на вектор (1:0) сдвинь на векторТ5Р2) КОНЕЦ КОНЕЦ КОНЕЦ
PascalABC.NET 3.2, сборка 1417 от 28.03.2017 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Введите двухзначное число:'); Writeln('Максимальная цифра ',max(n div 10, n mod 10)) end.
2. Школьное решения уровня ТурбоПаскаль 1983г.
var n,d,e,max:integer; begin Write('Введите двухзначное число: '); Read(n); d:=n div 10; e:=n mod 10; if d>e then max:=d else max:=e; Writeln('Максимальная цифра ',max) end.
Возможно тебе нужно это, а возможно и нет кто тебя знает
Объяснение:
#include <iostream>
#include <locale.h>
void main()
{setlocale (LC_ALL,".1251");
cout<<"Введите a,b,c,d \n";
cin>>a>>b>>c>>d;
if (a == b || a == c || a == d || b == c || b == d || c == d)
{
cout<<"Равные друг другу числа имеются"<<endl;
}
else
{
cout<<"Равных друг другу чисел нет"<<endl;
}
system("pause");
}