М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alinaara
alinaara
30.01.2020 08:50 •  Информатика

На одной улице стоят в ряд 4 дома, в которых живут 4 человека: алексей,егор,виктор и михаил.известно,что каждый из нихвладеет ровно одной из следующих профессий: токарь,столяр,хирург и окулист,но известно,кто какой и неизвестно,кто в каком доме живет. 1)токарь живет левее столяра 2)хирруг живетправее окулиста 3)окулист живет рядом со столяром 4)токарь живет не рядом со столяром 5)виктор живет правее окулиста 6)михаил не токарь 7)егор живет рядом со столяром 8)виктор живет левее егора выясните кто какой профессии и кто гнде живет и дайте ответ в виде заглавных букв имени людей,а в порядке слева на правро.например если бы в домах жили (слева направо)константин,николай,роман,и олег ответ бы был кнро

👇
Ответ:
viktoriya212
viktoriya212
30.01.2020
А-М-В-Е    Т-О-С-Х
4,5(56 оценок)
Открыть все ответы
Ответ:
Kamilla27042007
Kamilla27042007
30.01.2020
Так как по условию задачи нам не нужно выводить на экран считанную информацию с клавиатуры,то вывод переменной нам будет необходим только в случае обращения по имени.

var a:string;
begin
writeln('Как тебя зовут ?');
readln(a);
writeln('Привет ',a,' !');
writeln('Сколько тебе лет? ');
readln();
writeln('Какой у тебя любимый предмет в школе?');
readln();
writeln('Какая у тебя любимая книга');
readln();
end.

Если же,необходимо запомнить всю полученную информацию,тогда используем этот вариант:

var a,b,c,d:string;
begin
writeln('Как тебя зовут ?');
readln(a);
writeln('Привет ',a,' !');
writeln('Сколько тебе лет? ');
readln(b);
writeln('Какой у тебя любимый предмет в школе ?');
readln(c);
writeln('Какая у тебя любимая книга ?');
readln(d);
write ('Значит тебя зовут ',a ,'. Тебе ',b,'. Твой любимый предмет - ',c,'. И твоя любимая книга - ',d);
readln();
end.
4,5(72 оценок)
Ответ:
Kiber04ек
Kiber04ек
30.01.2020

Первая программа

var a,b,c: integer;

min, max, s: integer;

begin

writeln('Введите числа');

readln(a,b,c);

if (a>b) then max:=a else max:=b;

if (c>max) then max:=c;

if (a<b)then min:=a else min:=b;

if (c<min)then min:=c;

s:=max+min;

writeln('Сумма максимального и минимального числа =', s);

end.

Вторая программа

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

program sqrturavnenie;

uses crt;

Var a, b, c:Real;

procedure sq(a, b, c:Real);

Var d, x1, x2:Real;

Begin

d:=b*b-4*a*c;

Writeln ('d= ', d) ;

If d>=0 then begin

x1:=(-b+sqrt(d)) /(2*a);

x2:=(-b-sqrt(d))/(2*a);

If x1=x2 then

Writeln ('x1= ', x1:6:2)

else

Writeln ('x1=', x1:6:2, 'x2= ', x2:6:2)

End

Else

Writeln ('Корней нет!');

End;

begin

Clrscr ;

Writeln ('a= ');

Readln (a);

Writeln ('b= ');

Readln (b);

Writeln ('c=') ;

Readln (c);

Writeln (a:6:2,'x*x+ ', b:6:2, 'x+ ', c:6:2);

sq(a, b, c);

Readln

end.

С комментариями будет трудно

4,4(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ