1 Нарисовать круг
2 Нарисовать круг поменьше
3 Найти центр круга
4 На одинаковом расстоянии от круга слева и справа нарисовать маленькие кружочки
5 Залить всё, кроме маленьких кружочков
Var bads = ["Жадина – говядина,Пустая шоколадина.", "Ябеда, ябеда! Ябеда – корябеда!", "Обманули простака – На четыре кулака"];
var rand = Math.floor(Math.random() * bads.length)
alert( bads[rand] ); // вывести
Program Project1;
var m:array [0..19] of integer; i:integer;
begin
for i:=0 to 19 do begin
m[i]:=20-Random(30);
if m[i]<0 then m[i]:=m[i]*-1;
writeln(m[i]);
end;
readln;
end.
1
var a,b:integer;
begin
readln(a,b);
if a>b then
write(a+b);
if b>a then
write(b-a);
if a=b then
write(ab);
end.
2
type mas=Array [1..15] of integer;
var i:integer;
a:mas;
begin
randomize;
for i:=1 to 15
do begin
A[i]:=random(-10,10);
if A[i]<0 then
write(i,' ');
end;
end.