1) панель инструментов, главное меню, поле документа, строка состояния
2) изменить, копировать, вставить, вырезать, удалить, отменить
3) палитра, кисть, выделение цвета, эффекты, слои, холст
4) сбор данных
оценка качества данных
ввод данных в различные информационные системы
ручной ввод данных
накопление данных
сортировка данных
классификация данных
поиск нужных данных в накопленных массивах данных
контроль доступа и защита данных
упаковка данных
маркировка данных
надёжность передачи данных
табличное представление данных
графическое представление данных
визуальное представление данных
Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Ответ:
Var
y,x: integer;
begin
writeln('Ведите ваше число:');
read(x) ;
if x > 2 then
writeln('Результат y =: ', x+3)
Else
if x <=- 2 then
writeln('Результат y =: ', 1 div x);
Readln ;
end.
А сколько строк?
а то не решить
Написали бы на каком языке программирования Вам нужно. Вот на java ^_^
<span>import java.io.BufferedReader<span>;
</span>import java.io.InputStreamReader<span>;
</span>
public class prog {
public static void main(String[] args) throws Exception{
BufferedReader reader = new BufferedReader(new InputStreamReader(System.in))<span>;
</span> while(true) {
int a = Integer.parseInt(reader.readLine())<span>;
</span> if(a%3==0){
System.out.println("Делится")<span>;
</span> }
else{
System.out.println("Не делится")<span>;
</span> }
}
}
}</span>
