Обсуждение:Итоговая таблица 2ВМК-3: различия между версиями

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(РЕШЕНИЯ)
Строка 1: Строка 1:
LOL
 
сам LOL
 
 
!!!!!!!!!!!!!!!!
 
 
И все же он ботан!!!!!!!!!!!1
 
 
Однозначно ботаннннн!!!!!!!!!!Паша Клим!!!
 
Будующая офисная крыса!!!!!!!!!!!!!
 
 
== РЕШЕНИЯ ==
 
 
6 ВАРИАНТ ЛАБЫ №4 ПО КАЛЕНЬТЬЕВОЙ
 
 
  
  

Версия 17:59, 7 апреля 2008


№1 Выведите сведения о багаже, в котором только одна вещь, а вес ее больше среднего веса среди всех багажей





uses crt; const n=3; type pass=record fio:string; ves:real; kol:integer; end; grupp=array [1..n] of pass; var g:grupp; i:integer; s:real;

begin clrscr; s:=0; for i:=1 to n do with g[i] do begin writeln ('vvedite FIO passajirea'); readln(fio); writeln('obshii ves bagaja'); readln(ves); writeln('kol-vo vesei'); readln(kol); s:=s+ves; end; s:=s/n; for i:=1 to n do with g[i] do if (ves>s) and (kol=1) then

writeln (fio,'   -ves bagja-  ',ves:4:2);
readln;

end.