Массив A из 4 элементов заполняется по формуле. Установите соответствие между формулой и полученным массивом. 1.for x:=1 to 4 do A[x]:=x*(x+1);

2. for x:=1 to 4 do A[x]:=3*x-1;

3. for x:=1 to 4 do A[x]:=3*(x-1);

4. for x:=1 to 4 do A[x]:=3*x+1;

a. A: 0, 3, 6, 9

б. A: 4, 7, 10, 13

в. A: 2, 6, 12, 20

г. A: 2, 5, 8, 1

Var
a,b:integer;
begin 
writeln('введите число (км)');
readln(a);
b:=a*1000
writeln('метры = ',b);
end.

задание 2
program dfg;
var
x,y,b,d:real;
begin
writeln('введите стоимость гостиницы (за сутки)');
readln(x);
if x>0 then
begin
writeln('введите стоимость питания (за сутки)');
readln(y);
if y>0 then
beginwriteln('введит стоимость сувинир (за сутки)');
readln(b);
if b>0 then
begin
d:=(x+y+b)*7;
writeln('необходимая сумма',d);
end
else 
writeln('число не может быть отрицательным');
end
else
 writeln('число не может быть отрицательным');
end
else 
writeln('число не может быть отрицательным');
end.

#include <iostream>

int main(){
  //1
  char ch;
  std::cin >> ch;
  std::cout << int(ch) << std::endl;

  //2
  int c;
  std::cin >> c;
  std::cout << char(c) << std::endl;

  //3
  for (char ch = 'a'; ch <= 'z'; ch++)
    std::cout << ch;
  std::cout << std::endl;

  for (char ch = 'Z'; ch >= 'A'; ch--)
    std::cout << ch;
  std::cout << std::endl;

  //4
  int v;
  std::cin >> v;
  for (char ch = 'a'; v > 0; v--){
    if (ch > 'z') ch = 'a';
    std::cout << ch++;    
  }

  return 0;
}