можно типо так сделать
uses crt;
var
a,b:string;

begin
clrscr;
write(' куришь? -');
write(' да ');
write(' нет ');
write(' Выберите ответ: ');
read(a);
clrscr;
write(' пьёшь? - ');
write(' да ');
write(' нет ');
write(' Выберите ответ: ');
read(b);
clrscr;
if a='да' then write('Неправельно исправляйся');
if b='да' then write('Неправельно исправляйся');
if a='нет' then write('молодец');
if b='нет' then write('молодец');
end.

uses crt;
var
a,b:string;

begin
clrscr;
write(' куришь? -');
write(' да ');
write(' нет ');
write(' Выберите ответ: ');
read(a);
clrscr;
write(' пьёшь? - ');
write(' да ');
write(' нет ');
write(' Выберите ответ: ');
read(b);
clrscr;
if a='да' then write('Неправельно исправляйся');
if b='да' then write('Неправельно исправляйся');
if a='нет' then write('молодец');
if b='нет' then write('молодец');
end.

не знаю как в этом богомерзком языке, но в сях = это присвоить
Тут наверное также

Ужасная реализация )) Присвоить в дельфи это := ,

помогите зделать программу
Создание собственной библиотеки
создать библиотеку функций
Список группы (ФИО, возраст, средний балл по предметам)
на СИ

я эту тему не знаю так как препод заболел а сдавать надо, надо чтоб все было так как в примере только согласно согласно заданию.

рас уж это записи знач через записи

Народ,плиз помогите написать прогу на с++.В файле записана матрица вещественных чисел.Размерность неизвестна. Числа в файле записаны через пробел.Надо считать матрицу из файла,сохранить ее в динамической памяти и вывести на экран.

Приветствую ).нужна помощь в следующем:

Написать функцию типа void ,которая перемножает две целочисленные матрицы (z = x*y),используя только адресную арифметику.Объявляется три двумерных массива (int x[m][n], int y[m][n],int z[m][n]).Зачем-то задаются ещё две целочисленные константы(не пойму,для чего).Кто-нибудь может это осилить ? Не догоняю я эти матрицы...линейной алгебры у нас нет.

P.S.: НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ СИМВОЛЫ [].РАЗРЕШЕНА ТОЛЬКО АДРЕСНАЯ АРИФМЕТИКА И УКАЗАТЕЛИ !

SHARA ну я тоже так думаю, или в Дельфи можно через записи