Program Z_1;
uses crt;
var a,b,c,s: integer; {a,b,c- товары(если нужна стоимость с копейками поменяй integer на real, добавь переменные, если нужны еще товары), s-чек}
begin
while d<=1000 do begin
writeln('Введите стоимость товаров'); readln(a,b,c); {задается стоимость товаров с клавиатуры}
d:=a+b+c;
end;
writeln(d);
end.
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadInteger.ToString.GroupBy(c->c).Select(c->(c.Key,c.Count)).
Where(t->t[1]>1).Select(t->t[0]).Println(',')
end.
<u>Пример</u>
765645656
6,5
5.6000E+02 - 4.2000E+01 + 3.1300E+003 = 560 - 42 + 3130 = 3648
Ответ:
Это элементарно
var i,n,sum:integer;
Const w=10000;
a:array[1..w] of integer;
begin;
writeln('Введите кол-во элементов в массиве');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
if (a[i] mod 2<>0) and (i mod 2 = 0) then
inc (sum);
end;
writeln(sum)
end.