1 вариант
1.1
2.2
3.2
4.2
5. расширение
6. ВБА
7.3
8.3
9.3
10.2
11. список имен файлов
12. папка, упрощающая организацию файлов
1 фото трехзначное число, 1 и 2 двухзначное
Program stoim;
const s=1.4;
var k,v:real;
begin
writeln('vremya min');
readln(v);
writeln('vyhodnoy - 1, rabochiy den - 2);
readln(k);
if k=2 then write('stoimost = ',v*s,' rub')
else write('stoimost = ',v*s*0.2,' rub');
readln;
end.
9 декабря 1968 годду Дугласом Энгельбартом
uch=10 ; к-во учеников
sr0=0
ind=1
dim ocenki[uch,2] ; массив с оценками
for i=1 to uch
sr=int((ocenki[i,1]+ocenki[i,2])/2)
if sr0<sr then
ind=i
sr0=sr
endif
next
print "Оценка ",sr0," Ученик ",ind