Uses Crt; {можно и не использовать, без оной clrscr - видаст ошибку, что нет такого}
Var a,p: Real; n,i: Integer;
Begin ClrScr; {просто чтобы очистить экран можно и не использовать} Write('Type a: '); Read(a); Write('Type n: '); Read(n); for i:=1 to n do begin p:=p+(a*(a-i*n)*(a-n*n)); {не совсем понятны три точки в условии} end; Writeln('p=', p:3:3); {количество знаков после запятой и общее} Readkey; {или можно использовать Readln;} End.
Var s,s1:string; begin readln(s); if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s:='на'+s; end; if (s[1]='В') and (s[2]=' ') then begin delete(s,1,1); s:='На'+s; end; while pos(' в ',s)<>0 do begin if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s:='на'+s; end;if (s[1]='В') and (s[2]=' ') then begin delete(s,1,1); s:='На'+s; end; s1:=s1+copy(s,1,pos(' в ',s)-1)+' на '; delete(s,1,pos(' в ',s)+2); end; if (s[1]='в') and (s[2]=' ') then begin delete(s,1,1); s:='на'+s; end; if (s[1]='В') and (s[2]=' ') then begin delete(s,1,1); s:='На'+s; end; s:=s1+s; writeln(s); end.
Пример ввода 1: запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь Пример вывода 1: запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь
Пример ввода 2(глубокие песни современной отечественной эстрады): В в в в в в в в в в в в в в в в в в н. Пример вывода 2: На на на на на на на на на на на на на на на на на на н.
1) площадь изображения 35.56×35.56 = 1264.51 квадратных дюймов. количество точек в квадратном дюйме 1200×1200 = 1 440 000 точек количество точек во всем изображении 1 440 000 * 1264.51 = 182 089 440 000 глубина цвета 16 бит. 3 цвета RGB * 16 = 48бит на точку Итого 182089440000 * 48 = 8740293120000 бит 8740293120000 / 8 бит в байте / 1024 байт в КБ /1024 кб в мб / 1024 мб в гб = 865,39 Гигабайт
2) для палитры в 4 цвета небоходимо 2^n=4, n=2бита 55*55 = 3025 пикселя * 2 бита на пиксель = 6050бит
3) изображение 12,7×12,7 см. Разрешающая сканера — 600×1200 dpi, глубина цвета — 32 бита. в 1дюйме 2,54 см, 12,7см/2,54 см = 5 дюйм Изображение 5 * 5 = 25 квадратных дюймов 600*1200 = 720 000 точек на квадратный дюйм 720 000 * 25 = 18 000 000 точек на изображение
глубина цвета 32 бит. 3 цвета RGB * 32 = 96 бит на точку Итого 18 000 000 * 96 = 1 728 000 000 бит / 8 бит в байте = 216 000 000 байт
Program P1;
Uses Crt; {можно и не использовать, без оной clrscr - видаст ошибку, что нет такого}
Var a,p: Real;
n,i: Integer;
Begin
ClrScr; {просто чтобы очистить экран можно и не использовать}
Write('Type a: '); Read(a);
Write('Type n: '); Read(n);
for i:=1 to n do
begin
p:=p+(a*(a-i*n)*(a-n*n));
{не совсем понятны три точки в условии}
end;
Writeln('p=', p:3:3); {количество знаков после запятой и общее}
Readkey; {или можно использовать Readln;}
End.