Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Введение
Клавиатура - это одна из основных частей компьютера. С её помощью вводят алфавитно-цифровые данные и управляют работой компьютера.
Сегодня существуют различные варианты дизайна клавиатур. Также клавиатуры различаются по функциональности.
Клавиатура - это то, что наряду с мышкой находится в непосредственном контакте с пользователем, соответственно во многом определяет комфортно или не очень вы будете себя чувствовать при работе с компьютером.
Кто-то скажет, что клавиатура - пережиток, и что сейчас мышка необходима гораздо чаще, чем клавиатура. Это и правда, и нет. С одной стороны мы живем в век тотального засилья Windows, но даже эта операционная система, с ее графическим интерфейсом, не может полностью обойтись без клавиатуры. Ведь еще не придумали другого устройства ввода текста. Конечно, делаются множественные попытки в разработке систем распознавания речи, но они не то чтобы далеки от совершенства, они просто чудовищно от него далеки. Также предпринимаются попытки распознавания почерка, но и эти системы также не совершенны. А если вы работаете в терминале, какой-нибудь ДОСовой программе или просто общаетесь в чате, то без клавиатуры точно не обойтись.
Const
n = 5;//Емкость памяти типа "кольцо"
type
Ring = array[1..n] of integer;
var
ir: integer;
R: Ring;
procedure Add2Ring(a: integer);
// Добавляет в кольцо очередной элемент
begin
if ir = n then ir := 1
else ir := ir + 1;
R[ir] := a
end;
var
i, S, d: integer;
P: longint;
begin
S := 0;
ir:=0;
writeln('Вводите числа, 0 - конец ввода');
for i := 1 to n do
begin
readln(d);
S := S + d;
Add2Ring(d)
end;
repeat
readln(d);
if d <> 0 then Add2Ring(d);
until d = 0;
P := 1;
for i := 1 to n do P := P * R[i];
writeln('Сумма первых ', n, ' чисел: ', S, ', произведение последних: ', P)
end.
<em>var a, b, n, i:integer;</em>
<em>begin</em>
<em> b:=-1;</em>
<em> for i:=1 to 10 do</em>
<em> begin</em>
<em> a:=a+b;</em>
<em> b:=b+3;</em>
<em> end;</em>
<em> writeln (a);</em>
<em>end.</em><span><em> </em></span>
Не будем лишний раз ломать себе голову, пусть компьютер своей прямой обязанностью занимается:
javascript:
var число = 3n ** 300n + 9n ** 200n + 27n ** 100n - 2n * 3n ** 150n + 13n, единиц = 0;
while (число > 0n) { let разряд = число % 3n; if (разряд == 1n) единиц++; число /= 3n; }
alert(единиц);
Итого: 6.