Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
PascalABC.NET 3.4
// без массива
begin var (a, b) := ReadInteger2('Задай два первых числа ');
var n := ReadInteger('Сколько всего чисел надо?');
Print(a, b);
for var i := 3 to n do
begin
(a, b) := (b, a + b);
Print(b)
end
end.
// с массивом
begin
var n := ReadInteger('Сколько всего чисел надо?');
var a := new integer[n];
(a[0], a[1]) := ReadInteger2('Задай два первых числа ');
for var i := 2 to n - 1 do
a[i] := a[i - 1] + a[i - 2];
a.Println
end.
Поскольку кол-во цифр уже есть, цикл нам не нужен, мы просто выводим ответ (нужно для быстродействия, если мы загоним в цикл - у нас будет проверятся условие выхода 3 раза, поэтому мы этого избегаем). Если же кол-во цифр не определенно - придётся таки использовать цикл.
Для того чтобы узнать последнюю цифру нам нужно узнать остаток от деления на 10, чтобы узнать вторую цифру, нужно число разделить на 10 и узнать остаток деления на 10, ну и первую цифру точно так-же, только делить нужно на 100.
<h2>
Пример моего решения</h2>
#include <iostream>
using namespace std;
int main()
{
int num;
cin >> num;
cout << (num%10)+(num/10%10)+(num/100%10);
}
Исходный путь: D:/История/Россия/Личности.
Сначала он поднялся на один уровень вверх: D:/История/Россия
спустился в каталог СОБЫТИЯ: D:/История/Россия/События
затем поднялся на два уровня вверх: D:/История
Ответ: D:/История
