Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
портативный пк, в корпусе которого объединены типичные компоненты ПК, включая дисплей , клавиатуру устройство указания (обычно сенсорная панель, или тачпад), а также батарею.
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = 2
Да
<u>Напечатано будет число 22.</u>
В переменой m накапливается сумма элементов массива Work, не меньших текущего значения m.
Первоначально m=0, поэтому Work[1]=5 попадает в m.
Work[2]=4, но 4<m, поэтому m не меняется.
Work[3]=5 и 5=m, поэтому значение m увеличивается до 10.
Элементы Work со значением, меньшим 10, m не меняют.
Work[6]=12, 12>m, поэтому значение m увеличивается до 22.
В массиве нет значений 22 и больше, поэтому m больше не меняется.
Получше сфотографируй, не видно