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

program hdbbdsbkqqq3;
var a, b, c,x,y: integer;
uses crt;
begin
clrscr;
writeln('мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. подсчитай стоимость всей покупки.');
writeln('введи а и b, чтобы подходило по условию ');
readln(a,b);
if a=3 then writeln('подходит');
if a=4 then writeln('подходит');
if a=5 then writeln('подходит');
if a=6 then writeln('подходит');
if a=7 then writeln('подходит');
if a=8 then writeln('подходит');
if a=9 then writeln('подходит');
x: =a100;
y: =b50;
c: =x+y;
writeln(x);
writeln(y);
writeln(c);
if b=3 then writeln('подходит');
if b=4 then writeln('подходит');
if b=5 then writeln('подходит');
if b=6 then writeln('подходит');
if b=7 then writeln('подходит');
if b=8 then writeln('подходит');
if b=9 then writeln('подходит');
if a> 10 then writeln('не подходит');
if a< 3 then writeln('не подходит');
if b> 10 then writeln('не подходит');
if b< 3 then writeln('не подходит');
end.

Показать ответ

Ответ:

berezkina04

25.10.2022 15:49

Var x1,y1,x2,y2,v1,v2:real;
begin
  writeln("введите количество метров пробегания жирафа");
  read(y1);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x1);
  writeln("введите количество метров пробегания зайца");
  read(y2);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x2);
  v1:=y1/x1;
  v2:=y2/x2;
  if v1>v2 then
  begin
writeln("жираф чемпион");
end
else if v1<v2 then
  begin
writeln("заяц чемпион");
  end
  else
begin
  writeln("победила дружба);
end;
end;

0,0(0 оценок)

Ответ:

AgentRuba

24.01.2020 06:21

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
m = 10;

var
t: array[1..m] of integer;
i, n, nm, sm: integer;

begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
    t[i] := random(-20, 20);write(t[i]:4);
    if (i > 1) and (i <= m) then
      if t[i] > t[i - 1] then n := n + 1
      else if t[i] < t[i - 1] then begin
        sm := sm + t[i];nm := nm + 1;
      end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);

end.

Тестовое решение:
    6 13 19   8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5

0,0(0 оценок)

Популярные вопросы: Информатика