Клавиатура монитор принтер система рисование колонки камера наушники флешка мыш
Искомое число будет равно
Вариант поиска суммы с использованием цикла for:
var
n, i, sum: integer;
begin
sum := 0;
readln(n);
for i := 1 to n do
sum := sum + sqr(i);
writeln(sum);
end.
Вариант поиска суммы с использованием рекурсивной функции:
function f(k: integer): integer;
begin
if k = 1 then
f := 1
else
f := sqr(k) + f(k-1)
end;
var n : integer;
begin
readln(n);
writeln(f(n))
end.
Решение на С/C++ :
#include <iostream>
using namespace std;
int main()
{
int number;
cin>>number;
number=(number-number%10)/10;
//в результате остаётся число десятков, т.е. число без единиц
number=(number-number%10)/10; // тут уже число сотен без десятков
if(number==0) // если в результате будет 0 десятков, то выводим текст
{
cout<<"chislo ne trehznachnoe";
}
else // в противном случае десятки будут
{
cout<<number; // и выводим их кол-во
}
return 0;
}
1)
var a,q:integer;
begin
a:=1;
while a<>0 do begin
read(a);
if a<0 then inc(q);
end;
writeln('Количество отрицательный чисел: ',q);
end.
2)
var d,m,g,h,min:integer;
begin
d:=random(31)+1;
m:=random(12)+1;
g:=random(11)+2000;
h:=random(24);
min:=random(60);
writeln(<span>d,'/',m,'/',g,' ',h,':',min);
end.
3)
var a:array[1..10] of integer;n,i:integer;
begin
for i:=1 to 10 do
a[i]:=random(6)+2;
read(n);
</span>for i:=1 to 10 do
writeln(a[i]);<span>
for i:=9 downto n do
a[i+1]:=a[i];
a[n]:=0;
for i:=1 to 10 do
writeln(a[i]);
end;</span>
Принтер т.к перед печатью мы задаём ему алгаритм