Напишите программу, которая меняет местами первую и последнюю цифру натурального трехзначного числа. (ABC Pascal)

Знания

Информатика

1 ответ:

Владимир Второй3 года назад

0 0

Var
a,chislo,t:longint;
<span>c,nov,posl:integer; </span>
<span>begin </span>
<span>readln(a); </span>
<span>posl:=a mod 10; </span>
<span>chislo:=a; </span>
<span>t:=1; </span>
<span>repeat </span>
<span>a:=a div 10; </span>
<span>t:=t*10; </span>
<span>until a<10; </span>
<span>chislo:=chislo mod t; </span>
<span>chislo:=posl*t+chislo-posl+a; </span>
<span>writeln(chislo); </span>
<span>readln; </span>
<span>end.</span>

Читайте также

Подскажите, что нужно изменить, чтобы программа правильно работала(паскаль) Заполнить массив случайными числами в интервале [-10

Vladisis [4]

Const
    n = 10;

var
    i, c: integer;
    a, w: array[1..n] of integer;

begin
    randomize;

    writeln('Исходный массив:');
    for i := 1 to n do
    begin
        a[i] := random(201) - 100;
        write(a[i], ' ');
    end;
    writeln;

    c := 0;
    for i := 1 to n do
        if a[i] > 0 then
        begin
            c := c + 1;
            w[c] := a[i];
        end;

    writeln('Кол-во положительных элементов: ', c);
    for i := 1 to n do
    begin
        if a[i] <= 0 then
        begin
            c := c + 1;
            w[c] := a[i];
        end;
    end;

    writeln('Результат:');
    for i := 1 to c do
        write(w[i], ' ');
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Как в базе данных, при вводе фамилии, тут же показывалось и имя и отчество человека? Например я Демидова Валерия. Набираю фамили

Александр666777

Я не понял вопроса можно по понятнее

0 0

4 года назад

Помогите составить несколько вопросов на тему "Горячие клавиши или как обойтись без компьютерной мыши" Вопросы должны быть таким

defoxx

1) Можно ли вызвать командную строку в Windows без использования мыши? (Да)
2) Существует утилита "Экранная клавиатура" , а утилита "Экранная мышь" ? (Нет)

0 0

4 года назад

Помогите создать сайт (Лёгкий, в HTML) информатика 8 класс

megobetvk [4.3K]

<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>Почему так важно изучать информатику</title>
</head>
<body>
<font color=black>
<h3 color=white><p><strong>Зачем я изучаю информатику?</strong></p></h3> <br>
<h4>В наше время это, наверно, самый главный предмет, так как сейчас все только держится на коммуникационных технологиях. Чтобы попасть на хорошо оплачиваемую работу надо иметь опыт «общения» с компьютером. Я думаю, что без этого ни как, в данный момент даже дедушки и бабушки учатся работе с компьютером. Это очень важно учить и понимать информатику и новую технику.</h4>
<br>
<h4 align=right><strong>Вейхнер Эвелина, 7 А класс</strong></h4>
<hr></hr>
<br>
<h4>Я думаю, что это правильно, что в нашей школе изучают предмет «Информатика». Потому что компьютеры стали важной частью человечества. Если технологии станут быстрее развиваться, то люди поймут, что без компьютера не обойтись. Поэтому надо учить информатику.</h4>
<br>
<h4 align=right><strong>Малахов Антон, 7 Б класс</strong></h4>
<hr></hr>
<br>
<h4>В век высоких технологий, когда в каждом доме присутствует компьютер, человек должен знать, как с ним работать. Для изучения и практического применения и нужен предмет информатика. Её преподают в школах, ВУЗах, люди ходят заниматься в школы информатики. Сначала все кажется очень сложным, но проходит время и человека затягивает интерес. Он не понимает, как проснуться утром и не сесть за компьютер. Но это не очень хорошо. Не нужно сидеть много времени за компьютером, но и не нужно ограждать себя от сегодняшнего дня.</h4>
<br>
<h4 align=right><strong>Штанг Софья, 8 класс</strong></h4>
</body>
</html>

0 0

4 года назад

2 в 15 степени это сколько и как решили? очень срочно

Лидия17

2·2·2·2·2·2·2·2·2·2·2·2·2·2·2 = 32768

0 0

4 года назад

Прочитать ещё 2 ответа