М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
chelsi09
chelsi09
28.04.2021 18:32 •  Информатика

Люди, нужна ваша , используя программу pascal. незнающих пройти мимо. следует составить 2 программы согласно 2 ниже : ) (ввод с клавиатуры) 1) найдите сумму первой и последней цифр четырехзначного числа. 2) записать четырехзначное число в обратном порядке.

👇
Ответ:
Pahnet
Pahnet
28.04.2021
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите четырехзначное число');
  Writeln('Сумма первой и последней цифры равна ',n div 1000+n mod 10);
  Writeln('Реверс числа: ',n.ToString.Inverse)
end.

Пример
Введите четырехзначное число 5719
Сумма первой и последней цифры равна 14
Реверс числа: 9175
4,6(9 оценок)
Ответ:
arturlatipov
arturlatipov
28.04.2021
Uses crt;
var input:integer;
begin       
readln(input);       
var a := input mod 10;       
var b := input div 10;       
b := b div 10;       
b := b div 10;       
writeln('Сумма первой и последней цифры: ', a + b);       
 b := 0;       
while input > 0 do       
begin               
b := b * 10 + input mod 10;               
input := input div 10;       
end;       
writeln('Перевернули цифру: ', b);                
end.
4,7(87 оценок)
Открыть все ответы
Ответ:
Vasyy123
Vasyy123
28.04.2021
Const n=5;
var 
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(21);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,n];
for i:=2 to n do
  if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j]<min then min:=a[i,j];
 b[i]:=min;
 end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do 
 begin
 write(b[i]:4);
 s:=s+b[i];
 end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do 
 if b[i]>s/n then write(b[i]:4);
writeln;
end.

Пример:
Исходный массив:
  10  19  15  17  10
  12  12  10   1   5
  17   8   8  14  15
  12  11   8   0  13
   2   2   4  10   6
1. max = 11
2. Массив B
  10   1   8   0   2
3. среднее = 4.2
  10   8
4,6(87 оценок)
Ответ:
Jastick
Jastick
28.04.2021

#include <iostream>

#include <string>

using namespace std;

string dectobin(int num) // функция для перевода

{

string result; // строка для результата

for (; num!=0; num>>=1) // цикл со сдвигом вправо на 1 бит (работает быстрее чем деление на 2,

//но также делит)

result.insert(0, num&1 ? "1" : "0"); // вставка цифры в начало строки (1 если последний бит 1, 0 если 0)

return result; // возврат результата

}

int main(int argc, char *argv[])

{

// тут думаю понятно, ввод данных и вызов функции

int num;

cout<<"Enter number: ";

cin>>num;

cout<<dectobin(num);

return 0;

}

4,7(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ