Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Question!


Name: Sasha
Title:
  pascal in c
Question:
const
  tip: set of char=['Л','л','Г','г'];
  n=15;
type
  ves=record
    cena: integer;
    teep : char;
  end;
var
  a: array[1..n] of ves;
  i,k: byte;
  s: real;
begin
  s:=0; k:=0;
  writeln('ВВЕДИТЕ ДАННЫЕ');
  writeln('Легковой автомобиль обозначьте "л", грузовой - "г"');
  for i:=1 to n do
  begin
    writeln('  ',i,'-й автомобиль:');
    with a[i] do
    begin
      write('    цена: ');
      readln(cena);
      repeat
        write('    тип (л, г): ');
        readln(teep);
      until teep in tip;
      if teep in ['Л','л'] then
      begin
        s:=s cena;
        inc(k);
      end;
    end;
  end;
  writeln('Средняя цена легвовых = ',s/k:0:2,' руб');
  readln;
end.
Answers:

Name: dlasgjhgorhgoaier
avete capito informatica?

Name: sasha gray
very good name, i would like fuck your father this night

Name: Giuseppe Nicosia Carmelo Maria
Are you sasha grey? I'm a stupratore