Vari:integer;
c:real;
begin
readln(c);
Repeat
i:=i+100;
writeln(i,'g: ',c*0.001*i);
until i>=2000
<span>end.</span>
Спроси у учителя и всё будет понятно!
Написали бы язык программирования. Вот на java.
<span>import java.io.BufferedReader<span>;
</span>import java.io.IOException<span>;
</span>import java.io.InputStreamReader<span>;
</span>
public class znanie {
public static void main(String[] args) throws IOException {
BufferedReader reader=new BufferedReader(new InputStreamReader(System.in))<span>;
</span> long A=Long.parseLong(reader.readLine())<span>;
</span> long B=Long.parseLong(reader.readLine())<span>;
</span> if((A<0)||(B<0)){
System.exit(0)<span>;
</span> }
long sum=0<span>;
</span> for (long i = A; i <= B; i++) {
if((i%5==0)||(i%13==0)){
sum=sum+i<span>;
</span> }
}
System.out.println(sum)<span>;
</span> }
}
</span>
program fantscrin;
const n = 8;
var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:= random(11)+1;
for i:=1 to n do
write(a[i], ' ');
p:=1;
for i:=1 to n do
if (i mod 2 <> 0) then p:=p*a[i];
writeln('');
writeln('Произведение = ',p);
End.