var
n,count,i:integer;
begin
count:=0;
readln(n);
for i:=1 to n do
begin
readln(n);
if (n mod 4 = 0) and (n mod 7 <> 0) then
inc(count);
end;
writeln(count);
end.
Ответ: Б)2
Кажется так. Но ты сам попробуй подумать.
Паскаль
Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.
Лайк кста
Векторная графика состоит из математических формул, а растровая из пикселей, при увеличении изображения это четко видно, т.к увеличив векторную можно увидеть пиксели(квадратики) с векторным же такое не получится, его можно увеличивать до огромных размеров.
Если хотите попробовать скачайте Coral Draw или же Adobe Illustrator.
Правильный ответ под номером 2 - они <span>формируются из графических примитивов (линий, окружностей, прямоугольников и так далее)</span>