Все категории

4 года назад

Определить является ли первая цифра двузначного числа четным

Знания

Информатика

2 ответа:

nadin1594 года назад

0 0

a - двухзначное число, b - первая цифра двухзначного числа

b: = a div 10;

if (b mod 2 = 0) then writeln ('Цифра чётная');

if (b mod 2 = 1) then writeln ('Цифра нечётная');

Marvell4 года назад

0 0

var a:integer;

begin

readln(a);

if (a div 10) mod 2=0 then

writeln('Yes')

else

writeln('No');

end.

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

Вариант 22. Два сплава Имеется два сплава из двух металлов, соотношение этих металлов в каждом из сплавов известно. Программа до

vika723

===== PascalABC.NET =====

function НОД(a, b: integer): integer;

begin

(a, b) := (Abs(a), Abs(b));

while b <> 0 do

(a, b) := (b, a mod b);

Result := a

end;

function Подходит(a, b: integer) :=

(Sign(a) = Sign(b)) and (b <> 0);

procedure СократитьДробь(var a, b: integer);

begin

var d := НОД(a, b);

if d > 1 then

(a, b) := (a div d, b div d)

end;

begin

Println('Введите соотношения металлов в сплаве.');

Println('Числа частей целые и вводятся через пробел.');

var (a1, b1) := ReadInteger2('Первый сплав:');

var (a2, b2) := ReadInteger2('Второй сплав:');;

var (a3, b3) := ReadInteger2('Нужный сплав:');;

var y1 := (a2 + b2) * (a1 * b3 - b1 * a3);

var y2 := a1 * b2 - a2 * b1;

if not Подходит(y1, y2) then

begin

Println('Решения нет');

exit

end;

var x1 := (a3 + b3) * y2 - y1;

var x2 := y2;

if not Подходит(x1, x2) then

begin

Println('Решения нет');

exit

end;

СократитьДробь(y1, y2);

СократитьДробь(x1, x2);

var (r1, r2) := (x1 * y2, x2 * y1);

СократитьДробь(r1, r2);

var v := ReadReal('Требуемый объем сплава:');

Writeln('Соотношение частей металла ', r1, ' : ', r2);

Writeln('Соотношение объемов: ', v * r1 / (r1 + r2),

' : ', v * r2 / (r1 + r2))

end.

0 0

4 года назад

Помогите решить задачу в паскале.Даны три массива:A = {17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3},B = {-1.2, 4

Extorned

Type
V = array of real;

function SumPos(a:V): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 0 to Length(a, 0) - 1 do
if a[i] > 0 then s := s + a[i];
Result := s
end;

var
A, B, C: V;

begin
A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);
writeln('Сумма положительных элементов массива А ',SumPos(A));
writeln('Сумма положительных элементов массива B ',SumPos(B));
writeln('Сумма положительных элементов массива C ',SumPos(C));
end.

Тестовый прогон:

Сумма положительных элементов массива А 63.5
Сумма положительных элементов массива B 70.3
Сумма положительных элементов массива C 27.2

0 0

4 года назад

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

Есть 6 литров воды и 2 литра воды. Отмерь 1 литр воды.

sandriloo

Непонятное задание..

0 0

4 года назад

Как из несколько python файлов сделать exe. Есть программа калькулятор, на одном файле интерфейс из qt designer, на другом сама

lilixamer

Ответ:

Попробуй использовать pyinstaller. Устанавливаешь его через pip, и потом из дериктории с main.py вызываешь консоль и пишешь команду pyinstaller -w -F main.py, он соберёт его в экзешник с учётом всех импортов, в т.ч и тех файлов, которые создавал ты сам

Объяснение:

0 0

4 года назад

Составьте анаграммы: Масло - Соринка -

zlossevera

Масло-Масол
Соринка-росинка

0 0

4 года назад