С++
-------------------------
<em>ПАСКАЛЬ</em>
var
x,y,z:real;
function ST(a,b,h:real):real;
begin
ST:=(a+b)*h/2
end;
begin
Write('Введите длины оснований и высоту трапеции: ');
Read(x,y,z);
Writeln('Площадь трапеции равна ',ST(x,y,z):0:5)
end.
<u>Пример</u>
Введите длины оснований и высоту трапеции: 10.4 7.3 8
Площадь трапеции равна 70.80000
<span>256 цветов это глубина цвета 8 бит (т. е. 2 в степени 8)=1 байт; 10*10=100 точек; 100*1=100 байт. Ответ: 100 байт. </span>
Var
N:integer;
Begin
WriteLn('Введите номер дня недели');
Read(N);
Case N of
1:
Begin
WriteLn('Чтение');
WriteLn('Труд');
WriteLn('Музыка');
WriteLn('Физ-ра');
End;
2:
Begin
WriteLn('Изо');
WriteLn('Русский');
WriteLn('Математика');
WriteLn('Окружающий мир');
End;
3:
Begin
WriteLn('Геометрия');
WriteLn('Краеведенье');
WriteLn('География');
WriteLn('МХК');
End;
4:
Begin
WriteLn('ОБЖ');
WriteLn('Информатика и ИКТ');
WriteLn('Физика');
WriteLn('Химия');
End;
5:
Begin
WriteLn('Биология');
WriteLn('История');
WriteLn('Обществознание');
WriteLn('Алгебра');
End;
6:
Begin
WriteLn('----------');
WriteLn('Литература');
WriteLn('Черчение');
End;
7:
Begin
WriteLn('Воскресенье!!!');
End;
End;
End.
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.
Int s = 0;
for(i=5; i<=30; i++){
s+=i;
}
print(s)