4 года назад

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

Знания

Информатика

1 ответ:

Exter [17]4 года назад

0 0

var a:integer;

begin

readln (a);

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

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

end.

Пример:

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

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

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

While3. Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N

Задохлик

//GNU C++ 11
#include <iostream>
using namespace std;

void while3 (int n, int k, int &quit, int &modul)
{ //quit - частное, modul - остаток
quit=0; modul=0;
while (n>=k) {quit++; n-=k;}
modul=n;
}

int while9 (int n)
{
int k=1;
while (3*k<n) k++;
return k;
}

int sum (int n){if (n==1) return 1; else return n+sum(n-1);}
//немного рекурсии

void while11 (int n, int &k, int &s)
{
k=1; s=1;
while (sum(k)<n) k++;
s=sum(k);
}

int main ()
{
//пиши функцию, задавай параметры
return 0;
}

0 0

4 года назад

Помогите пожалуйста )0)0)00))))

Данталиан [28]

1. c:=(10-b)/(15-(b*b));

2.88;

3.a:=8;

b:=16;

4.x:=15;

y:=1

0 0

4 года назад

Помогите плессс....срочно.

Ксения-1992 [1]

Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
    begin
    if (x < 0) or (x <= 1) then
    y:=x
    else
    y:=x*x
    end;
writeln(y);
end

0 0

3 года назад

Написать программу:Дано четырехзначное число. Определить:Является ли сумма его цифр трехзначным числом.Является ли произведение

IgorSokolov22

1) Дано четырехзначное число.

Вывести 1, если сумма его цифр является трехзначным числом, 0 иначе.
Вывести 1, если произведение его цифр является трехзначным числом, 0 иначе.
Вывести 1, если сумма его цифр кратна трем, 0 иначе.
Вывести 1, если произведение его цифр кратно четырем, 0 иначе.

2) Дано трехзначное число.

Вывести 1, если все цифры числа одинаковы, 0 иначе.
Вывести 1, если число оканчивается четной цифрой.

Решения обеих задач на языке С++ даны в приложениях.

0 0

4 года назад

При помощи какого инструмента можно ввести текст.

Конслу [21]

1. Клавиатура.
2. Мышь.
3. Сенсорная клавиатура.

0 0

4 года назад