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

Знания

Информатика

1 ответ:

Ольгафловер4 года назад

0 0

var a:integer;

begin

readln (a);

writeln('Цифра десятков: ',abs(a) div 10);

writeln('Цифра единиц: ',abs(a) mod 10);

end.

Пример:

Цифра десятков: 2

Цифра единиц: 5

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

Составить программу нахождения произведения четных чисел, находящихся в промежутке от 19 до 64. Паскаль

Yliua-Vredina [22]

Var i,k:uint64;
begin;
k:=1;
for i:=19 to 64 do
k:=k*i;
write(k);
end.

0 0

4 года назад

Переведите число 67 из десятичной системы счисления в двоичную. Проверьте правильность вычислений обратным переводом из двоичной

Яначка

См. решение на рисунке

0 0

3 года назад

По записанному на алгоритмическом языке алгоритму подсчитать сумму квадратов последовательности натуральных чисел. алг сумма кв

Liza165

Ответ под номером 4
1+2²+3² = 1+4+9=14

0 0

4 года назад

Напишите программу которая из n случайных чисел находио и выводит четырехзначные числа и их произведения у которых квадрат перво

МсЮлия [266]

Program long;
uses Crt;
const n=5;
type Vec=array [1..n] of integer;
var A, B, C: Vec;
     i,j,k, Col: integer;
     Pro: longint;
     a1, a2: integer;
begin
ClrScr;
Randomize;
Col:=1; Pro:=1;
WriteLn ('Massiv A:');
for i:=1 to n do
   begin
     A[i]:=500+random(2000);
     Write(A[i]:6);
     if A[i] >1000 then
        begin
          B[Col]:=A[i]; Col:=Col+1;
        end;
   end; WriteLn;
Col:=Col-1; WriteLn;
WriteLn ('Massiv B:');
for i:=1 to Col do
   WriteLn(B[i]);
WriteLn;
k:=1;
for i:=1 to n do
   begin
       a2:=B[i] mod 10;
       a1:=B[i] div 1000;
       if sqr(a1)<sqr(a2) then
           begin
              C[k]:=B[i];
              k:=k+1;
           end;
   end;
for i:=1 to k-1 do
     Pro:=Pro*C[i];
WriteLn ('Pro=',Pro);
ReadLn;
end.

0 0

3 года назад

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

Помогите написать программу вычесления для заданного натурального числа N: S=1+√2+√3+....+√N

Олег Легкий [24]

Uses crt;
var i,N:integer;
s:real;
begin
s:=0;
write('вв N');
read(N);
for i:=1 to N do
s:=s+sqrt(i);
write('otvet:', s);
readkey
end.

0 0

2 года назад