Program Integer13;
var x,a,b,c,p:integer;
begin
Writeln('Vvedite chislo ');
readln(x);
a:=x div 100;
c:=x mod 100;
p:=c*10+a;
Writeln ('Result= ',p);
readln;
end.
Я так понял, что это нужно написать на ЯП Pascal
Вот скриншот и прикрепленный файл с кодом.
Набирать здесь не буду из-за неудобочитаемости.
Работает стабильно, хоть и всегда можно реализовать как-то еще проще :)
upd: обновил фалы, теперь всё написано как надо
C:\Музыка\Лучшие<span>\Про_цветы\Белые_розы.mp3
Вариант 3 является верным
</span>
uses crt;
var a,b,h: real;
function f(x: real): real;
begin
f:=x*cos(1/x)+2;
end;
begin
write('a: ');
read(a);
write('b: ');
read(b);
write('h: ');
read(h);
writeln('Полученный результат:');
writeln(' x | f(x) ');
while a<b do
begin
writeln(a:5:4,'|',f(a):5:4);
a:=a+h;
end;
end.
Объем видеопамяти будет равен 800*640*24 = 12288000 бит
12288000/8 = 1536000 байт
1536000/1024 = 1500 кбайт
1500/1024 = 1,47 Мб