Loading...
Свободное общение | Помогите с паскаль
Все я сделал сам
спасибо всем кто помог мне! Благодарю ребятки
program Test;
var a,b:integer;
y1:real;
y2:real;
begin
readln(a,b);
y1:=a/b;
y2:=a*b;
if (a>b) then writeln(y1) else writeln(y2);
end.
ОБКУРЕННЫЙ-КОТЭ (13.02.2017 в 17:28)
или так то ошибка
begin;
if ( a > b )then y:=a/b;
y:=a*b;
end.

Program1.pas(2) : Неизвестное имя 'a'

надо было сначала объявить пернменные a и b:
var a,b:integer;
rekmixa (13.02.2017 в 18:12)
program Test;
var a,b:integer;
y1:real;
y2:real;
begin
readln(a,b);
y1:=a/b;
y2:=a*b;
if (a>b) then writeln(y1) else writeln(y2);
end.

Блин ошибка http://prntscr.com/e87qpd
ОБКУРЕННЫЙ-КОТЭ , я паскаль плохо знаю. и не практикуюсь
W1n4eSter (13.02.2017 в 17:14)
Могу на С++ или на шарпе написать

Ты хорошо шаришь в шарпе???
Сибирский (13.02.2017 в 17:47)
blackheard , я поражаюсь программе универов, уже сколько лет прошло они все паскаль изучают )) Эти задачки 15 лет назад еще были )) От этих знаний ну никакого прока нет ))


это ещё народ не слышал про ПК "Корвет" и ДВК "Электроника"
Arte Van TeMoN (13.02.2017 в 19:24)
W1n4eSter (13.02.2017 в 17:14)
Могу на С++ или на шарпе написать

Ты хорошо шаришь в шарпе???

Курсовые работы в университете на 90 - 100 баллов сдаю
W1n4eSter (13.02.2017 в 19:48)
Arte Van TeMoN (13.02.2017 в 19:24)
W1n4eSter (13.02.2017 в 17:14)
Могу на С++ или на шарпе написать

Ты хорошо шаришь в шарпе???

Курсовые работы в университете на 90 - 100 баллов сдаю

Ого.
Поможешь с этим??? А то не понял. Искал в гугле так и не нашел.
Онлайн: 4
Время:
Gen. 0.0939
(c) Bym.Guru 2010-2026