var
a,b,c: integer;
begin
readln(a,b,c);
writeln(a+b+c)
end.
Компьютер - сложная вычислительная техника, которая помогает человеку, упрощая процесс создания и хранения информации. Одна из главных составляющих компьютера - это системный блок, монитор, клавиатура и компьютерная мышь - без них никуда. Процессор отвечает за все процессы, происходящие в системе. Оперативная память осуществляет эти самые действия. Любители компьютерных игр не обойдутся без хорошей видеокарты, с её помощью повышается графика, за которую так же отвечает монитор и графический драйвер. Материнская плата тоже неотъемлемая часть ПК. Компьютеры- сложная и полезная техника.
Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
<span>end.</span>
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
Write('Введите символ: ');
ReadLn(C);
For i:= 1 to S.Length do
if S[i] = C then
Write(i,' ')
End.
Пример:
Введите строку: Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа *
Введите символ: а
2 4 11 57 76 113