помогите решить задание на паскаль используя формат if.
10-11 класс
|
Что бы не запускать каждый раз программу ввёл цикл repeat until. Если хочешь убери
var x,y,a:real;
begin
repeat
readln(x);
if (x=5) or (x=6) or (x=7) then
y:=x;
if (5y:=x-5;
begin if (6y:=x-6;
end;
writeln(y:0:5);
until false
end.
Другие вопросы из категории
Составить программу по нахождению минимального элемента массива и определить его местонахождение в массиве.
модему, чтобы скачать файл , который второй модем скачал за 40 секунд?
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0
Читайте также
c, d.
Найти max (max(a, b), max(a, c), max(a, d)).Числа получить случайным
образом на интервале [-50..+50]
Дана строка, удалить текст находящийся в скобках (вместе со скобками)
Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать
Вот как я делал:
program zd;
uses crt;
var s:string; i,l,n,t,y:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
l:=length(s);
for i:=1 to n do begin
if s[i]='(' then
t:=i; {здесь присваивал номер найденной скобки}
if s[i]=')' then
y:=i; {так же, как и выше}
delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой}
end;
writeln('Данный результат =', s);
readln;
end.
Дана строка.Перенести последнюю букву слова в начало слова
уникальных чисел в массиве....заранее спасибо...
10 этапов соревнований «Формула-1». После 10 этапа участник с порядковым номером 4 выбыл из соревнований. Изменить массив так, чтобы в нем не было результатов бывшего гонщика.