3 года назад

Дано натуральное число. Верно ли, что первая цифра данного числа - четная? Решить в турбо паскале, БЕЗ МАССИВОВ.

1 ответ:

таня 023 года назад

0 0

Program z1; Var n:integer;Begin write('Введите число - '); readln(n); while n>9 do n:=n div 10; if (n mod 2= 0) then writeln('Четна') else writeln('Нечетна');<span>End.</span>

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

Придумай и запиши вопросы к рисунку где Янт звонит по телефонувопросы на который можно ответить да,нетвопросы на которые нельзя

sestra2609 [456]

Он правильно набрал номер?

0 0

4 года назад

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

Помогите пожалуйста очень срочно нужно написать программу в Паскаль. Группу детей, приехавшую в оздоровительный лагерь, распреде

Елена Васильевна ...

{1 вариант}
var otr, vozr: byte;
begin
writeln('введите возраст');
readln(vozr);
case vozr do
6,7: otr:=5;
8,9: otr:=4;
10,11: otr:=3;
12,13: otr:=2;
14,15: otr:=1;
end;
writeln('Ваш отряд', otr);
end.

{2 вариант - более простой}
var otr, vozr: byte;
begin
writeln('введите возраст');
readln(vozr);
otr:=5 - vozr div 2 + 3;
writeln('ваш отряд', otr)
end.

0 0

4 года назад

Площадь поверхности шара s=4* pi* R^2 где S площадь поверхности шара R радиус составить программу

danka-r59

На языке паскаль, за $\pi$ взято 3,14:

program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.

0 0

4 года назад

Составить программу в Pascal, которая формирует одномерный массив случайным образом, случайные числа должны принадлежать отрезку

Danil Rostunov

Var a:array[1..10] of integer;
i:integer;begin
for i:=1 to 10 do
begin
a[i]:=-4+random(8);
write(a[i],' ');
end;
end.

0 0

1 год назад

Работник зарабатывает Х руб. за каждые 38 часов своей работы. Ему платят в 1,5 раза больше за каждый час сверх 38 часов. Какую с

Muso Ismailov [107]

Var A:
Integer;
var x, zp :real;
label m;
begin
writeln('введите зарплату');
readln(x);
m: writeln ('введите кол-во часов >38');
readln(a);
if a<38 then goto m;
zp:=x+1.5*(A-38)*(x/38);
writeln ('работник получит ', zp,' рублей')
<span>end. </span>

0 0

4 года назад