Program mas;
const n=4; // число элементов
var a: array [1..n] of integer; //массив
i, sum: integer; //переменные
begin //начало
sum:=0; // сумма=0
for i:=1 to n do readln(a[i]); //вводим массив
for i:=1 to n do //цикл
if(a[i] mod 2 <>0) then //условие нечетности
begin
writeln(a[i]); //выводим нечетные
sum:=sum+a[i]; //считаем сумму
end;
writeln(sum); //выводим сумму
end. //конец
Введение
Клавиатура - это одна из основных частей компьютера. С её помощью вводят алфавитно-цифровые данные и управляют работой компьютера.
Сегодня существуют различные варианты дизайна клавиатур. Также клавиатуры различаются по функциональности.
Клавиатура - это то, что наряду с мышкой находится в непосредственном контакте с пользователем, соответственно во многом определяет комфортно или не очень вы будете себя чувствовать при работе с компьютером.
Кто-то скажет, что клавиатура - пережиток, и что сейчас мышка необходима гораздо чаще, чем клавиатура. Это и правда, и нет. С одной стороны мы живем в век тотального засилья Windows, но даже эта операционная система, с ее графическим интерфейсом, не может полностью обойтись без клавиатуры. Ведь еще не придумали другого устройства ввода текста. Конечно, делаются множественные попытки в разработке систем распознавания речи, но они не то чтобы далеки от совершенства, они просто чудовищно от него далеки. Также предпринимаются попытки распознавания почерка, но и эти системы также не совершенны. А если вы работаете в терминале, какой-нибудь ДОСовой программе или просто общаетесь в чате, то без клавиатуры точно не обойтись.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,c):=ReadReal2();
write('P=',a+sqrt(c*c-a*a)+c);
end.
Ответ:
real: A, B - стороны прямоугольника
real: P - периметр
real: S - площадь
все переменные вещественного типа