Как написать программу на языке pascal которая после неправильного ответа переносит обратно в исходное положение пока не будет правильный ответ цикл короче как записать такой.

👇

Увидеть ответ

Ответ:

joraninga

22.04.2021

Пусть правильный ответ 5

Var a:integer;

Begin

A:=0;

While a<>5 do Readln(a)

<Остальная часть программы>

4,4(72 оценок)

Открыть все ответы

Ответ:

qamqsmbfhfuc

22.04.2021

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

проблема имеет несколько источников:

1) оперативная память, её контакты могли окислиться и из-за этого она не даёт работать компьютеру. попробуй достать её( перед этим обязательно вытащи провод из источника ! )

и осмотреть контакты, если это так и там имеется что-то подгоревшее или не такого цвета как все, то пройдись ластиком, но не сильно.

2) сбой в работе bios, есть круглая батарейка в материнской плате, осторожно вытащи её на пять минут и вставь обратно. попробуй перезагрузить конденсаторы. для этого в компьютере без питания нажми кнопку включения, потом попробуй включить компьютер.

3) сгорела видеокарта или материнская плата.

самый печальный исход, замена комплектующих.

(я написал далеко не все, но это самые распространённые источники проблемы)

4,5(41 оценок)

Ответ:

myyllaas

22.04.2021

1) Все правильно, это и будет разность между максимумом и минимумом
program one;
var input,max,min:integer;
    i:integer;
begin
readln(input);
max:=input;
min:=input;
for i:=2 to 25 do begin
    readln(input);
    if input>max then max:=input;
    if input<min then min:=input;
end;
writeln(max-min);
end.

2) Гораздо проще не суммировать в цикле степени половины, а воспользоваться тем, что $1+\frac12+...+\frac1{2^n}=2-\frac1{2^n}$ .
program two;
var res:real;
    i,n:integer;
begin
readln(n);
res:=0.5;
for i:=2 to n do res*=0.5;
res:=2-res;
writeln(res);
end.

3) Здесь существует несколько реализации; в частности, можно было просто считать число как строку и возвратить ее в перевернутом виде (ReverseString(s)), не заботясь о переполнении, однако я решил, что по логике задания нужно делать через числа. Впрочем, для выявления случаев переполнения все равно используется переворот строки
program three;
var a,b:int64; {можно использовать uint64, если в вашей среде Паскаля этот тип поддерживается, тогда число в строке ниже надо заменить}
begin
readln(a);
if ReverseString(IntToStr(a))>'9223372036854775807' then writeln('Слишком много') else begin
    while a>0 do begin
      b:=10*b+a mod 10;
      a:=a div 10;
    end;
    writeln(b);
end;
end.

4,8(100 оценок)

Это интересно:

Стиль-и-уход-за-собой

01.12.2020

Как сделать неформальную стрижку: шаг за шагом инструкция для начинающих...

Образование-и-коммуникации

27.10.2021

Как вести дневник: польза для здоровья и советы по созданию своего...

Стиль-и-уход-за-собой

08.07.2022

Как правильно рисовать кошачий глаз при помощи подводки для глаз?...

Компьютеры-и-электроника