//массив отсортировать, удалить повторные
#include <iostream>
#include <list>
#include <cstdlib>
#include <ctime>
#include <iomanip>
using namespace std;
int main() {
int j,n;
list<int> lst;
list<int>::iterator it1;
// начальная установка генератора случ. чисел
srand(time(NULL));
//заполнение списка
cout<<"n = "; cin>>n;
for (j=0; j<n; j++)
lst.push_back(rand() % 10);
//вывод на экран
cout<<"initial array: ";
for (it1=lst.begin(); it1!=lst.end(); it1++)
cout<<*it1<<" ";
//сортировка, удаление повторных
lst.sort();
lst.unique();
//вывод списка
cout<<endl<<"after removing: ";
for (it1=lst.begin(); it1!=lst.end(); it1++)
cout<<*it1<<" ";
cout<<endl;
system("pause");
return 0;
}
В варианте без сортировки (что, вообще говоря, не принципиально) убираете строку lst.sort();
<span>
</span>
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
предлагаю решение на Паскале
var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln ('n=',n);
end.
Заходишь во вкладку "Вставка"
Нажимаешь Фигуры Выбираешь прямоугольник с круглыми углами .
Делаешь эту фигуру на листе , дальше заходишь во вкладку "формат"
Выбираешь стиль фигуры (внутри должна быть белая) .
Заходишь во вкладку "Вставка" выбираешь фигуру "линия" и сам прямоугольник размечаешь под таблицу и да не забудь во вкладке "формат" сделать что-бы прямоугольник и линии были за текстом.
