uses crt;
var a,b,c,d,ch:integer; sr:real;
begin
readln(ch);
a:= ch div 1000;
b:= ( ch div 100) mod 10;
c:= ( ch div 10) mod 10;
d:=ch mod 10;
if ch mod 2 = 0 then
writeln((a+b+c+d)/4)
else
writeln(sqr(a),' ',sqr(b),' ',sqr(c),' ',sqr(d));
readln;
end.
В современном мире без компьютера как без рук. Это все равно что есть суп вилкой медленно , и некомфортно. Homosapiens XXI века должен быть не только умным, но и коммуникабельным.Такое чудо техники как планшет сейчас не является чем-то ограниченным ( в плане производства). Он имеет множество функций которые улучшают , облегчат и сделают мою жизнь , жизнь современного ученика более удобным и коммуникабельным.Мне нужен планшет в первую очередь для обучения. Он прост в использовании , поэтому и удобнее. Эта вещь удобная и не занимает много места , а благодаря компактности ней можно пользоваться где угодно. Поскольку я пользуюсь стационарным ПК , и нет возможности приобрести планшет , я считаю , что имею меньшие возможности для работы с информацией.Конечно любой ПК дает возможности для работы , но они , по моему мнению , являются меньшими по сравнению с планшетом .С таким портативным устройством я иметь возможности для более удобного распространения и поиска информации , которая мне необходима в обучении .В будущем я стану студенткой (сейчас я ученица 11 класса ) . Поэтому необходимы учебники я бы смогла хранить в таком планшетном компьютере . Я думаю это удобнее чем носить 5-7 книг в портфеле. Имея планшетный компьютер я смогу пользоваться им персонально , и все хлопоты , связанные с неудобствами в пользовании домашним ПК исчезнут. Планшет значительно облегчит мою работу над исследованиями , докладами , и семинарами в будущем. А сейчас я буду иметь возможность доступа к новой версии программного обеспечения которое предоставит планшетный компьютер , потому что до сих пор работала с Microsoft Office 2003-2007.Я призер олимпиад по информационным технологиям . Поэтому такая вещь в будущем и теперь , когда я планирую связать свою профессию с ИТ , мне просто необходима.<span>Новые технологии - это шаг вперед , шаг в будущее !</span>
Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
