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.
using System;
namespace ConsoleApp5
{
class Program
{
static void Main(string[] args)
{
bool f;
double a,b,c, s, s1;
a = double.Parse(Console.ReadLine());
b = double.Parse(Console.ReadLine());
c = double.Parse(Console.ReadLine());
s = Math.Sqrt(((a + b + c) / 2) * (((a + b + c) / 2) - a) * (((a + b + c) / 2) - b) * (((a + b + c) / 2) - c));
a = double.Parse(Console.ReadLine());
b = double.Parse(Console.ReadLine());
c = double.Parse(Console.ReadLine());
s1= Math.Sqrt(((a + b + c) / 2) * (((a + b + c) / 2) - a) * (((a + b + c) / 2) - b) * (((a + b + c) / 2) - c));
if (s == s1)
f = true;
else
f = false;
Console.WriteLine(f);
Console.ReadKey();
}
}
}
Видеокамера в основном получает снимок и записывает его на карту памяти и для этого не требуется лабораторной обработки и рисунок можно распечатать несколько раз или изменить содержимое рисунка, а фотоаппарат делает снимок и записывается как "скрытое изображение" но они не считается снимком, чтобы получить снимок надо провести лабораторную обработку и занимает время в отличии от видеокамеры.
Х=А7(16) у=67(8)
Так для удобства вычислений переведем х и у в 10 сис-му счисления
Х=А7(16)=167(10)
Y=67(8)=55(10)
Теперь складываем 167+55=222(10)
Переводим полученное число в 2-ю сис-му счисления
222(10)=1101110(2)
20Кбайт *1024*8 = 163840 бит
Если 1 символ занимает 8 бит, то
163840 бит / 40 строк / 64 символа / 8 бит = 8 страниц