Робот черипаха как на рисовать цыфры 1 2 3 4 5 6 7 8 9 0
и нарисовать сердце

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.

Код программы:

#include <iostream>

#include <locale>

using namespace std;

int main() {

setlocale(LC_ALL, "Russian");

double D, a, b, c, x1, x2;

cout<<"Введите коэффициент a" << endl;

cin >> a;

if (a == 0) {

 cout << "Ошибка ввода! Коэффициент a не должен равняться 0" << endl;

 return 0;

}

cout << "Введите коэффициент b" << endl;

cin >> b;

cout << "Введите коэффициент c" << endl;

cin >> c;

cout << "\nВаше уравнение: " << a << "x^(2) + " << b << "x + " << c << endl;

D = sqrt(b*b - 4 * a * c);

if (D >= 0) {

 if (D == 0) {

  x1 = (-b) / (2 * a);

  cout << "x1 = " << x1 << endl;

 }

 else {

  x1 = (-b - D) / (2 * a);

  x2 = (-b + D) / (2 * a);

  cout << "x1 = " << x1 << endl;

  cout << "x2 = " << x2 << endl;

 }

}

else

 cout << "\nУравнение не имеет корней (D < 0)" << endl;

return 0;

}