Помогите плис я был на огэ и как это решить

Знания

Информатика

1 ответ:

petrushka4 года назад

0 0

Правильный ответ: 140

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

Дано натуральное число.Определить,какая цифра встречается в нём чаще-1 или 9. Pascal

заехали

Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
end.

0 0

4 года назад

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

Укажите вид алгоритма Если время на часах 11 вечера то идти спать иначе читать книгу

Айрина1983

Вид алгоритма: разветленный

0 0

4 года назад

Дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ ) СРОЧНО ! уже какой раз кидаю этот вопрос никто правильно р

Татьяна Астанакулова

program 123;
 uses crt;
 var m, n: longint;
 k: integer; {счетчик цифр}
begin
 clrscr;
{Вводим целое число.}
 writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
 m:=n;k:=0;
{Пока m<>0 делать цикл.}
 while m <>0 do
 begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
 k:=k+1; m:= m div 10; {Inc(k) }
 end;
{Вывод количества цифр.}
 writeln('B числе ',n,'- ',k, ' цифр!');
 readln;
end.

0 0

1 год назад

Прошу помогите пожалуйста срочно

Екатерина Емельян... [2]

а)7

б)9

в)10

г)30

д)1

е)14

ж)10

з)4

0 0

3 года назад

Для каждой задачи составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE - в проти

Limarice [886]

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
// 1
var (x,y):=ReadReal2('Введите x и y:');
Writeln((x>0) and (y>0));
// 2
var a,c,d:longint;
Write('Введите число, его квадрат и куб: '); Read(a,c,d);
Writeln((a*a=c) and (a*a*a=d))
end.

Пример
Введите x и y: 3.5 1.8
True
Введите число, его квадрат и куб: 15 225 1225
False

0 0

4 года назад