3 4 5 6 7 8 9 10 11 program Integer7; var A, Res: Integer; begin Write('Введите двузначное число: '); Readln(A); Res:=(A div 10) + (A mod 10); Writeln('Сумма его цифр равна: ',Res); Res:=(A div 10) * (A mod 10); Writeln('Произведение его цифр равно: ',Res); end.
№1. Информация – это сведения об окружающем мире, которые повышают уровень осведомленности человека. Информатика - наука о методах накопления, обработки и передачи информации Информационные технологии - процесс, использующий совокупность средств и методов сбора, обработки и передачи данных (первичной информации) для получения информации нового качества о состоянии объекта, процесса или явления (информационного продукта). Объект - любая часть окружающей дейст-ти №2. газета - предмет, радуга - явление, прогулка - процесс, стадион - предмет,чтение - процесс,мираж - явление №3. а) пенал б) ярлыки в) диски г) растения д) уравнения е) страны ж) алгоритм №4 а) страны мира б) страны западного полушария в) страны северной америки г) самые длинные реки д) реки России е) реки Европы ж) уст-ва ввода, вывода з) уст-ва ввода и) растения к) плодовые растения
1) var a, b: real; begin readln(a, b); if (a > b) then writeln(a) else if (a < b) then writeln(b) else writeln('a = b'); end.
2) var a, b, c: integer; begin readln(a); b := a mod 100 div 10; c := a mod 10; a := a div 100; write('a) '); if (a > c) then writeln(a) else if (a < c) then writeln(c) else writeln('='); write('b) '); if (a > b) then writeln(a) else if (a < b) then writeln(b) else writeln('='); write('c) '); if (c > b) then writeln(c) else if (c < b) then writeln(b) else writeln('='); end.
3 4 5 6 7 8 9 10 11 program Integer7; var A, Res: Integer; begin Write('Введите двузначное число: '); Readln(A); Res:=(A div 10) + (A mod 10); Writeln('Сумма его цифр равна: ',Res); Res:=(A div 10) * (A mod 10); Writeln('Произведение его цифр равно: ',Res); end.