Помогите пожалуйста найти в программе ошибку. Обязательно вложенное ветвление( тренировочная задача 1)

Знания

Информатика

1 ответ:

Наська1212 [1]4 года назад

0 0

Ты забыл поставить ; после первого else смотри пример в учебнике.
у нас получается следующее:
if x>y then
if x=y then write ('x=y')
else write ('max=',x);
else write ('max=',y);
end.

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

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

Составить программу для вычисления суммы квадратов чисел от 20 до 55

денис саныч

PascalABC:

varsum ,i :longint;beginfor i:=20 to 55 dosum:=sum+i*i;writeln(sum);end.

0 0

4 года назад

Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его элементов на один вправо. (Последний элемент в таком сл

leosko

Const n=10;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
c:=a[n];
for i:=n downto 2 do a[i]:=a[i-1];
a[1]:=c;
for i:=1 to n do write(a[i],' ');
writeln;
end.

Пример:
8 2 24 20 27 44 25 41 16 21
21 8 2 24 20 27 44 25 41 16

0 0

4 года назад

Дано 2 числа найти большее из них. В ДЕЛФИ

Maksimus888

Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.
-------------------------
Это если консольное. Если графическое приложение - тогда приношу свои извинения.

0 0

4 года назад

Система отказов исполнителя. Отказ «не понимаю» возникает тогда, когда исполнителю подается команда, не входящая в его СКИ. Отка

borisowasofya [3]

Да, всё правильно. При неправильной команде СКИ выдаст "не понимаю", при невозможности исполнения выдаст "не могу"

0 0

4 года назад

Записать в развернутом виде числа Адва= 100111;Ашестнадцать= 1АЗ,5С1

sashakopaty

100111(2) = 1*2^5 + 1*2^2 + 1*2^1 + 1 = 32+4+2+1 = 39(10)
1A3,5C1(16) = 1*16^2 + 10*16^1 + 3 . 5/16^1 + 12/16^2 + 1/16^3 = 256 + 160 + 3. (5/16 + 12/256 + 1/4096 = 419. 36961914

0 0

4 года назад