Первая задачка
int X, Y;cout << "Введите X" << endl;cin >> X;count << endl;while(Y > 0){ Y--; if((X+Y)/2 == 10){ cout << "Искомое число Y: " << Y << endl; }}while(Y < X*10){ Y++; if((X+Y)/2 == 10){ cout << "Искомое число Y: " << Y << endl; }}
1) program n_1;
var n: integer;
begin
readln (n);
if n div 100 = 0 then
writeln ('Число двузначное') else writeln ('Число не является двузначным')
<span>end.
</span>
Program chisla;
var a,b:integer;
begin
read (a);
if
b=a div 2 then
write('Число четное') else
write('Число нечетное');
end.
# Код на ruby 2.2.3p173
def zadanie(line, time)
line = line.gsub(/[^MD]/, "")
time.times { |i|
k = 0
while k < line.size - 1 do
if line[k..k + 1] == "MD"
line[k], line[k + 1] = line[k + 1], line[k]
k+=1
end
k+=1
end
p [i,line]
}
return line
end
# # Примеры применения
p zadanie("MMDMDDDDDMMDDDMDDDMD", 10)
Вывод
[1, "MDMDMDDDDMDMDDDMDDDM"]
[2, "DMDMDMDDDDMDMDDDMDDM"]
[3, "DDMDMDMDDDDMDMDDDMDM"]
[4, "DDDMDMDMDDDDMDMDDDMM"]
[5, "DDDDMDMDMDDDDMDMDDMM"]
[6, "DDDDDMDMDMDDDDMDMDMM"]
[7, "DDDDDDMDMDMDDDDMDMMM"]
[8, "DDDDDDDMDMDMDDDDMMMM"]
[9, "DDDDDDDDMDMDMDDDMMMM"]
[10, "DDDDDDDDDMDMDMDDMMMM"]
"DDDDDDDDDMDMDMDDMMMM"
Uses crt;
var xA,xB,yA,yB,D: real;Begin
clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB); d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
writeln('Длина отрезака AB = ',d:0:3)
End.