var a,n: integer;
procedure del (a,n:integer);
var b:integer;
begin
b := 0;
while a > 0 do
begin
if a mod 10 <> n then b := b * 10 + a mod 10;
a := a div 10
end;
while b > 0 do
begin
a:= a * 10 + b mod 10;
b := b div 10
end;
writeln(a)
end;
begin
readln(a);
readln(n);
del(a,n)
end.
Недостатки растрового : большой объем изображения , потеря качества при маштабировании
недостатки векторного сложность в создании , маленький вес по сравнению с растровым
преймущества растрового точность передачи деталей
преймущества векторного : нету потерь качества при маштабировании
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a,b,c:real;
Writeln('Введите коэффициенты квадратного уравнения (a b c)');
Read(a,b,c);
if a=0 then begin
Writeln('а=0 делает уравнение линейным');
if b=0 then Writeln('Корней нет')
else Writeln('Один корень ')
end
else begin
var d:=b*b-4*a*c;
if d<0 then Writeln('Нет действительных корней')
else
if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end
end.
Написать програму которая считывает текст с клавиатуры, находит самое длинное число и определяет, сколько раз оно встретилось в тексте.
Код C++
#include <conio.h>
#include <stdio.h>
#include <string.h>
#include <iostream.h>
void main();
{clrscr();
char s[50];
char s1{}=" ";
char *p;
char *q;
char e[50];
int g,a;
cout<<"vvedite tekst:"<<endl<<endl;
gets(s);
p=strtok(s,s1);
while(p)
{if(*p==' ')
p=strtok(s,s1);
g=strlen(p);
cout<<endl<<g<<endl;
if(a<g)
{a=g;
*e=*p;
}
p=strtok(NULL,s1);
}
puts(e);
cout<<endl<<e;
getch();
}
Три канала по 37 уровней яркости в системе RGB дадут в сумме 3 х 37 = уровней. Каждый байт хранит 256 комбинаций, поэтому одного байта будет вполне достаточно.