Частично и часто...спасибо за внимание.
Var n,k,x: integer;
begin
repeat
readln(x);
if x<0 then n:=n+x;
if (x mod 2=1) then k:=k+1;
until x=0;
writeln('Число нечетных положительных: ',k);
writeln('Сумма отрицательных: ',n);
<span>end.</span>
Ответ:
данные только одного типа
Объяснение:
В поле реляционной базы данных могут быть записаны
данные только одного типа
Таков принцип реляционных БД. Для типа можно определить кол-во необходимой памяти для хранения, удобно накладывать условия на значение (например даты не раньше 2000 года) и не только...
Var a,b,c,x,a1,b1,c1:integer;
begin
writeln('Введите стоимость тетрадей');
readln(a1);
writeln('Введите кол-во тетрадей');
readln(a);
writeln(''Введите стоимость ручек');
readln(b1);
writeln('Введите кол-во ручек');
readln(b);
writeln('Введите стоимость карандашей');
readln(c1);
writeln('Введите кол-во карандашей');
readln(c);
x:=(a*a1)+(b*b1)+(c*c1);
writeln(x' руб.',);
end.
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.