4 года назад

ПАСКАЛЬ! Цикл WHILE. Начальный уровень. Найдите наибольшую степень 2, делящую данное число А.

Знания

Информатика

1 ответ:

лариса0864 года назад

0 0

Код программы:

program learning;

var a, c: Integer;

begin

c:= 0;

readln(a);

while(a mod 2 = 0)

do begin

a:= a mod 2;

c:= c+1;

end;

writeln(c);

end.

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

Три человека, одна большая и две маленькие обезьяны должны переправиться через реку. Есть одна лодка, в которой может поместитьс

Vassal13

Человек и маленькая обезьяна
человек большая обезьяна и возврат обезьяны
человек большая обезьяна и возврат обезьяны
Большая и маленькая обезьяна
человек и большая обезьяна.3 человек переправить через реку а обезьяны нет.у меня получилось так)))

0 0

4 года назад

Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обознач

Mozgo-go [6.1K]

Программа (python 3.5), делающая то, что указано в условии:
from re import sub
s = '5' * 254
while ('2222' in s) or ('5555' in s):
if '2222' in s:
s = sub('2222', '5', s, 1)
else:
s = sub('5555', '2', s, 1)
print(s)

Получается 22255

0 0

4 года назад

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

Сай-Суу [3]

Для заголовков лучше таймс нью роман жирный 16, а для подзаголовков тот же шрифт но уже курсив и 14

0 0

4 года назад

Найти в 2-мерном массиве минимальный элемент. Количество строк и столбцов вводит пользователь. Массив заполнить случайными числа

Amur24

Program qwer;
uses crt;
var a : array[1..1000,1..1000] of integer;
i,j,x,y,min,max : integer;
begin
read(x,y);
min := 100;
max := 0;
for i := 1 to x do
for j:= 1 to y do
begin
a[i,j] := random(101);
if a[i,j] < min then min := a[i,j];
if a[i,j] > max then max := a[i,j];
end;
writeln(min);
write(max);
end.

0 0

3 года назад

Помогите написать программу на языке паскаль 1. вывести все числа от 1 до 10 с помощью while; 2. вывести все числа от 1 до 10 с

dbrf1234567891234... [49]

Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
 while a<>10 do
 begin
inc(a);
 write(a,' ');
end;
writeln('');
 //Вывод через repeat
repeat
 begin
 inc(b);
 write(b,' ');
 end;
until b=10;
end.

0 0

3 года назад