210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430,440,450,460,470,480,490.
If a>1000 then
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.
Vb
dim matt() as integer
dim x,y as integer
x=5
y=5
redim matt(x,y)
randomize
for a as integer = 0 to x
for b as integer = 0 to y
matt(x,y)= (rnd()*88)+11
next
next
dim i,z as integer
do
matt(i,z)=0
i+=1
z+=1
loop until (i=x and z=y)
Program output;
Var a:integer;
begin
writeln('Сколько вам лет?');
readln(a);
writeln('В возрасте ',a,' лет, по статистике, жизнь преподносит сюрпризы');
end.
Проверь и отпиши
№1
var a,b,c,sr_arf: real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('Введите значение c: ');
readln(c);
sr_arf:=(a+b+c)/3;
writeln('Среднее арифметическое чисел = ',sr_arf);
end.
№2
a=a + \frac{b}{c}
b= \frac{4}{2a - |b| + 5}
c= \sqrt{ {a}^{2} + b \times b }