Школьный обед - меню (список блюд с ценой), сколько человек подписаны на
бесплатный/комплексный обед, какой объем блюд нужно приготовить к
обеду, время обеда и тд
Ремонт квартиры - какие изменение
необходимо сделать, бюджет, кто будет делать, материалы и их
приобретение, инструменты, рассчетное время ремонта и тд
Пассажир поезда - имя, место, билет, постель, чай, спутники, багаж, от куда и куда, поезд и вагон
Дом, в котором ты живешь - адрес, этажность, материал стен, коммуникации, год сдачи, кол-во подьездов и тп
// PascalABC.NET
// Версия 3.4 сборка 1749 (18.08.2018)
Если места нумеруются с 1:
begin
ReadlnString.Select((i, j)-> (i, j + 1)).Where(t -> (t[1].IsOdd) and (t[1] mod 3 <> 0) and (t[0] = 'd')).Count.Println
end.
Если места нумеруются с 0:
begin
ReadlnString.Select((i, j)-> (i, j)).Where(t -> (t[1].IsOdd) and (t[1] mod 3 <> 0) and (t[0] = 'd')).Count.Println
end.
Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
Хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате???
исходник от java прикрепил,
вот паскаль
var a,b,c,d,x1,x2 :extended;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then begin write('Korney net!'); end;
if d=0 then begin
if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end;
if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end;
if d>0 then begin
if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
end; end.
Dim b(4,2)
for i=1 to 4 step 2
for j=1 to 2
b(i,j)=int(RND*10-8)
print b(i,j);
next j
print
next i
kol=0
for i=1 to 4 step 2
for j=1 to 2
if b(i,j) mod 3=0 then
kol=kol+1
end if
next j
next i
print kol
