#include <iostream>
#include <stdlib.h>
#include <locale>
#include <math.h>
using namespace std;
int main(){
setlocale(LC_ALL,"");
float x=0,y=0;
cout << "Введите х: ";
cin >> x;
if (x<0)
y = 1/x;
else if (x>6)
y = x*x;
else if (0 <= x <= 6)
y = 5*x+7;
cout << "\n y = ";
cout << y;
}
Например так:
#!/usr/bin/perl
for(1..12){@arr[$_]=int(rand(100))};
print "@arr\n";
print "Write first element:"; chomp($n1=<>);
print "Write second element:"; chomp($n2=<>);
(@arr[$n1], @arr[$n2])=(@arr[$n2], @arr[$n1]);
print "\
[email protected]\n"
Только по хорошему нужна проверка введенных значений еще.
var a,b1,b2:integer;
begin
readln(a); //считываем число
b1:=a mod 10; // единицы
b2:=(a - b1) mod 100; //десятки
write(a-b2); // число минус десятки
end.
В нулевой строке 1 буква D
В первой две (нулевая удвоилась и дописали A, а не D)
Во второй 4 (дописали B), в третьей 8 (C), в четвертой 16+1=17 (дописали D в конец), дальше №5 - 34, №6 - 68, №7 - 136, №8 - 272.
Ответ. 272.