Напишите программу для паскаля! Дано натуральное число. Найти число, получаемое ...

September 2021 1 12 Report

Напишите программу для паскаля! Дано натуральное число. Найти число, получаемое из исходного перестановкой его первой и последней цифр.

Answers & Comments

Gleb1Kosyrev

Verified answer

Var a,bug:integer;
s,s1,s2:string;
begin;
readln(a);
str(a,s); //переводим число в строку
s1:=s[1]; //запоминаем 1 символ
s2:=s[length(s)]; //запоминаем крайний символ
delete(s,1,1); //удаляем 1 символ
delete(s,length(s),1); //удаляем крайний символ
insert(s2,s,1); //ставим сохранённый крайний символ на первое место
insert(s1,s,length(s)); //ставим сохранённый первый символ в конец
val(s,a,bug); //делаем строку числом, не забыв о возможности багов
writeln(a);
end.

0 votes Thanks 0

Answers & Comments

Verified answer

pomogite pozhalujsta sinx cosx 1f3ed975539a63ade1f669ff531b399f9 80317

paskal pomogite pozhalujsta dan celochislennyj massiv iz 40 elementov elementyc0d7f335aa0c06076c21bdcca5544f9a 31673

pomogite pozhalujsta na vhod programmy postupaet naturalnoe chislo ne prevyshayush784ef4672c921553268bdf4eaceb53e4 3684

pomogite pozhalujsta kak poschitat v massive kolichestvo podryad idushih elementov

pomogite pozhalujsta uprostit vyrazhenie chto to nikak ne poluchaetsya

paskal pomogite pozhalujsta udalit pervuyu iz strok matricy v kotoroj summa el

pomogite pozhalujsta reshit zadachu v paskale v fajle markscsv zapisany svedeniya124c6e145c702d65e91aa9f5d83352cf 86650

dokazhite neravenstvo abab9 gt12ab agt0 bgt0

+1...

na risunke predstavlen grafik zavisimosti temperatury efira ot vremeni pri ego n

рекомендуемые вопросы

Helpful Links

Helpful Social