Информатика Задние
Получив на вход число х, приведённая ниже программа выводить два числа - m и n.
Известно, что при некотором значении х были выведены числа 4 и 8. Укажите наибольшее и наименьшее из таких чисел х. Сколько всего существует таких х?
var x,m,n: integer;
begin
readln(x);
m:=0; n:=0;
while x>0 do
begin
if n m:= m+1
x:= x div 10;
end;
writeln (m); write (n)
end.
Все слова/анаграммы, которые можно составить из слова "сканер"
Из "сканер" можно составить 58 слов из 2,3,4,5 букв.
Слова из 2 букв, составленные из комбинации "сканер" (12 слов):
ан ар ас ер ка кн кр на не нс ре се
Слова из 3 букв, составленные из комбинации "сканер" (22 слова):
акр аре арк аск ера кар кеа кен кер кнр нар нас нес рак рен рнк сак сан сен сер сна сне
Слова из 4 букв, составленные из комбинации "сканер" (13 слов):
акне енка каре керн крае кран крен раек река саек саке сена сера
Слова из 5 букв, составленные из комбинации "сканер" (11 слов):
аксен анкер аскер кенар нарек насек нерка серка серна скарн скена
ответ
uses
graphabc;
begin
setwindowwidth(800); //ширина окна
setwindowheight(600); //высота окна
setpenwidth(3);
roundrect(200, 300, 600, 350, 20, 20); //кузов машины
floodfill(400, 320, clnavy);
circle(290, 350, 30); //переднее колесо
floodfill(300, 360, clblack);
circle(510, 350, 30); //заднее колесо
floodfill(520, 360, clblack);
begin
setpenwidth(3);
line(300, 300, 340, 250);
line(340, 250, 470, 250);
line(470, 250, 510, 300);
line(405, 250, 405, 350);
line(510, 300, 510, 320);
line(300, 300, 300, 320);
line(380, 310, 390, 310);
line(480, 310, 490, 310);
line(300, 300, 510, 300);
end;
begin
setpencolor(clgray); //цвет кисти
setpenwidth(15); //размер кисти
circle(510, 350, 10); //заднее колесо
circle(290, 350, 10); //переднее колесо
end;
begin
setpenwidth(3);
setpencolor(clyellow);
circle(100, 100, 30);
floodfill(110, 110, clyellow);
line(140, 120, 200, 150);
line(130, 135, 150, 160);
line(120, 140, 140, 190);
line(105, 145, 110, 170);
line(95, 145, 90, 190);
end;
begin
setpenwidth(20);
setpencolor(clgreen);
line(0, 385, 800, 385);
setpenwidth(3);
setpencolor(clolive);
rectangle(0, 385, 800, 600);
floodfill(110, 390, clolive);
end;
объяснение: