На C++
<span>#include <iostream.h>
const n=10;
void main()
{
int b,A[n]={1,2,3,4,5,6,7,8,9,0};
b=A[n-1];
for(int i=n-2;i>=0;i--)
A[i+1]=A[i];
A[0]=b;
for(i=0; i<n;i++)
cout<< A[i]<<',';
}
</span>
использовать Чертежник
алг
нач
сместиться на вектор (2,2)
опустить перо
в;в;п;п;п;л;л;н;п;п;л;л;н;п;п;л;л;л
кон
алг л; нач сместиться на вектор (-2,-2); сместиться на вектор (-2,2) кон
алг п; нач сместиться на вектор (2,2); сместиться на вектор (2,-2) кон
алг в; нач сместиться на вектор (2,2); сместиться на вектор (-2,2) кон
алг н; нач сместиться на вектор (-2,-2); сместиться на вектор (2,-2) кон
Информатика это наука об информации и способах работы с ней
В последней задаче понадобятся переводные коэффициенты.
1 берковец=10 пудов=400 фунтов=38400 золотников.
Отсюда:
1 фунт = 38400/400 = 96 золотников
1 пуд = 400/10 = 40 фунтов
1 берковец = 10 пудов
<u>№1</u>
var
n:integer;
begin
Write('Введите двухзначное число: '); Read(n);
n:=Abs(n); { убираем минус, если он есть }
Writeln('Среднее арифметическое цифр числа: ',
(n div 10 + n mod 10)/2)
end.
<u>Пример</u>
Введите двухзначное число: 43
Среднее арифметическое цифр числа: 3.5
<u>№2</u>
var
n:integer;
begin
Write('Введите двухзначное число: '); Read(n);
n:=Abs(n); { убираем минус, если он есть }
Writeln('Разность количества десятков и единиц равна ',n div 10 - n mod 10)
end.
<u>Пример</u>
Введите двухзначное число: 38
Разность количества десятков и единиц равна -5
<u>№3</u>
var
a:real;
begin
Write('Площадь, ар: '); Read(a);
Writeln('Полных кв.км: ',Trunc(a/10000))
end.
<u>Пример</u>
Площадь, ар: 252123234
Полных кв.км: 25212
<u>№4</u>
const
f=96; { фунт }
p=40; { пуд }
b=10; { берковец }
var
z:longint;
kb,kp,kf:integer;
begin
Write('Введите вес в золотниках: '); Read(z);
kf:=z div 96;
z:=z mod 96;
kp:=kf div 40;
kf:=kf mod 40;
kb:=kp div 10;
kp:=kp mod 10;
Writeln('Это составит ',kb,' берковцев, ',kp,' пудов, ',
kf,' фунтов, ',z,' золотников')
end.
<u>Пример</u>
Введите вес в золотниках: 374252
Это составит 9 берковцев, 7 пудов, 18 фунтов, 44 золотников