Информатика, опубликовано 02.04.2020 23:26
Найдите ошибки в записи операторов присваивания:
Var g, h:Byte; f:Real;c, q:Char; b,e:Boolean;
Begin g:=5.67;f:=g+3.789; c:=’t’; b:=true; e:=h>10;q:=c
End.
Ответы
Ответ оставил: Гость
begin
var (a,b,c):= ReadInteger3('Введите 3 числа: ');
if not Odd(a) and not Odd(b) and not Odd(c) then
Println('Сумма первых двух: ', a+b)
else
Println('Сумма двух последних: ', b+c);
end..
Объяснение:
Ответ оставил: Гость
Var a,b,c,mi: integer;beginreadln (a,b,c);
if ((b>a) and (b<c)) or ((b>c) and (b<a)) then mi:=b;
if ((a>b) and (a<c)) or ((a<b) and (a>c)) then mi:=a;
if ((c>a) and (c<b)) or ((c<a) and (c>b)) then mi:=c;
write (mi);
end.
Ответ оставил: Гость
75 так как 300:4 =75
в дано не понял что писать
Ответ оставил: Гость
Откройте paint и наводите поочерёдно курсор на эти картинки. Ответ там.
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
