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.
Поделитесь своими знаниями, ответьте на вопрос:
С ТЕСТОМ ПО ИНФОРМАТИКЕ! 7.Трехмерная графика – это А.графика объемных изображений Б.изображение на трех дисплеях В.три изображения на одном дисплее Г.изображение, сохраненное три раза. 8. Какой этап заключительный? Моделирование, наложение материалов, расстановка источников света, установка камер, … А.визуализация Б.фотографирование В.сохранение изображения Г.распечатка изображения 9.Компьютерная анимация – это А.мультфильм, транслируемый с компьютера Б.получение движущихся изображений В.перемещение файлов из папки в папку Г.перемещение окна по дисплею 10.Пиксель – это А.одна точка графической сетки Б.буква греческого алфавита В.название созданного изображения Г.имя графического файла 11. размер монитора характеризуется А.длиной Б.шириной В.диагональю Г.Периметром 12.Какой цвет в палитре лишний? А.красный Б.зеленый В.синий Г.белый 13.отметьте лишний пункт А.ЭЛТ-монитор Б.ЖК-монитор В.цветной монитор 14.Какое устройство не относится к техническим средствам компьютерной графики? А.монитор Б.сканер В.видеопамять Г.графический редактор 15. На дисплейный процессор информация попадает непосредственно из А.видеопамяти Б.информационной магистрали Центрального процессора Г.оперативной памяти 16.Код пикселя – это информация о А.цвете пикселя Б.адресе пикселя В.размере пикселя Г.порядковом номере пикселя 17. Код пикселя 101. сколько цветов использовалось в этом изображении? А.2 Б.4 В.8 Г.3 18.Формулой I=2i связаны между собой А.количество различных цветов и количество битов для их кодирования Б.количество различных цветов и количество изображений, которые можно получить с их В.количество битов для кодирования цвета и размер дисплея в пикселях Г. Количество пикселей в диагонали дисплея и количество выведенных одновременно на него изображений 19.Объем необходимой видеопамяти определяется А.размером монитора Б.количеством цветов в выводимом изображении В.размером графической сетки дисплея и количеством цветов Г.количеством открытых одновременно изображений 20. Какой пункт лишний? А.растровая графика Б.векторная графика В.цветная графика
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.