Program SumAndMul;
Uses Crt;
var a:array[1..10] of real;
i:integer;
sum,mul:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('Введите -', i,' число:' );
readln(a[i]);
end;
sum:=0;mul:=1;
for i:=1 to 10 do
begin
if (a[i]>0) then sum:=sum+a[i];
if (a[i]<0 ) then mul:=mul*a[i];
end;
writeln('Сумма положительных элементов: ',sum);
writeln('Произведение отрицательных элементов: ',mul);
readkey;
end.
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
Добавить новый слайд в презентацию можно тремя
- стандартная кнопка на панели инструментов
- команда Вставка/Создать слайд; в колонке Слайды, нажать правой кнопкой мыши в пустом месте и выбрать опцию - Создать слайд.
Если надо провести какие-либо действия с несколькими слайдами одновременно, их можно выделить, используя кнопку (Режим сортировщика слайдов)
- выделить первый нужный слайд;
- удерживая клавишу CTRL, можно выделить следующий слайд
Если надо удалить один или несколько слайдов, то надо действовать так же как и в предыдущем шаге, выделить:затем нажать на клавишу DELETE
Если нужно переместить какой-то из слайдов, тогда следует:
- выбрать Режим сортировщика слайдов и выделить один или несколько слайдов;
- нажав левую кнопку мышки на данном слайде (или группе слайдов), передвигать мышку в то место, где слайд (слайды) должен находиться, затем отпустить кнопку мышки.
Если нужно какой-либо из слайдов дублировать, тогда следует сделать следующее:
- выбрать Режим сортировщика слайдов sorter.png и выбрать один или несколько слайдов;
- удерживая зажатой левую кнопку мышки на слайде и удерживая клавишу CTRL , и тянуть до того места, где должна находится копия слайда (или группы слайдов), и затем отпустить левую кнопку мышки и клавишу CT
Объяснение: