program seee;
uses crt;
var p,b,c:real;
i,v:integer;
begin
clrscr;
readln(p);
writeln;
writeln('mass price ');
writeln;
while v<>1000 do
begin
v:=v+50;
writeln(v,'g ',v*p/1000:2:2);
end;
readkey;
end.

0 0

4 года назад

Помогите умоляю Сведения , команды из окружающего мира как называется??

ИсраилМ

Когда человек собирает сведения об окружающем мире, он собирает информацию. Эта информация, накапливаясь тысячелетиями, сохраняется в виде примет, личного опыта. Фундаментальные знания о природе, связанные с наблюдением за ней, легли в основу таких наук как физика, химия, биология, геология и смежных с ними современных учениях. Ответом на вопрос станет только одно слово - информация.

0 0

3 года назад

Дан массив, состоящий из 12 случайных чисел от -5 до 12. Всего его элементы умножить на последний элемент. Помогите пожалуйста

sergho

Program zadacha;
vara: array[1..12] of integer;i,n: integer;
beginfor i:=1 to 12 do begina[i]:=-5+random(12);write(a[i]:4);n:=a[12];end;writeln();for i:=1 to 12 do begina[i]:=n*a[i];write(a[i]:4);end;end.

0 0

4 года назад