Program abc;
uses GraphABC;
const
scale = 20;
step = 0.001;
var
x0, y0, x1, y1: integer;
x, y, min, max, a, b, c: real;
begin
setwindowsize(1000, 800);
DrawInBuffer := true;
// write(' введите промежуток для функции(min значение-enter- max значение) ');
// read(min, max);
writeln('a=');
read(a);
writeln('b=');
read(b);
writeln('c=');
read(c);
x0 := WindowWidth div 2;
y0 := WindowHeight div 2;
line(20, y0, WindowWidth - 20, y0);
line(x0, 20, x0, WindowHeight - 20);
min := trunc((20 - x0) / scale);
max := trunc((WindowWidth - 20 - x0) / scale);
x := min;
while x <= max do
begin
x1 := trunc(x0 + x * scale);
y := a * x * x * x + b * x * x + c;
y1 := trunc(y0 - y * scale);
PutPixel(x1, y1, clGreen);
y := a * x * abs(sin(x));
y1 := trunc(y0 - y * scale);
PutPixel(x1, y1, clBlue);
x := x + step;
end;
end.
Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8
С 22 апреля по 13 мая в нашей школе проходит конкурс «Клумба моей мечты». Ребята 5-8 и 10 класса должны подготовить участок, посадочный материал, материал для ограждения клумбы, продумать дизайн, ну и, конечно, посадить растения. Вечером 6 мая мы собрались осуществить наши планы по посадке клумбы. Было очень холодно, дождливо и ветрено, поэтому поработать пришли только четверо взрослых и пятеро ребят. Ценой героических усилий клумбу вскопали и высадили то, что принесли. <span>Огромное спасибо Маниной Ирине Викторовне, Дышековой Татьяне Евгеньевне, Маниной Анастасии, Ломп Карине, Гришковой Юлии, Гордиенко Максиму и Орлову Никите.</span>
В программе для каждого из трёх введённых слов подсчитывается количество одинаковых букв, стоящих рядом.
Значения переменных после выполнения приведенного фрагмента программы:
slovo='ИНФОРМАТИКА'
n=11 (длина последнего слова)
k=0
На экран будет выведено:
no
yes
no
