1,2,3,4,5,6,7
Всегда пожалуйста.
Янт, ты любишь разговаривать по телефону? (Да\Нет)
Янт, ты разговариваешь? (Да\Нет)
—————————————————————
Янт, кому ты звонишь? (Нельзя ответить да \нет)
Янт, придумай сам этот вопрос.
Получше изложи задачу пожалуйста..
В смысле как? Все вещи делить на три части?
Тут что-то неполностью написано
Program ex;
var a,b,c,s,k:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите первое второе');
readln(b);
writeln('Введите первое третье');
readln(c);
if a>0 then
begin k:=k+1;
s:=a;
end;
if b>0 then
begin
s:=s+b;
k:=k+1;
end;
if c>0 then
begin
k:=k+1;
s:=s+c
end;
writeln('Сумма=',s);
writeln('Количество положительных чисел=',k)
end.
Вавило́нская ба́шня — легендарная башня, которой посвящено библейское предание, изложенное в 11 главе книги Бытие. Согласно этому преданию, после Всемирного потопа человечество было представлено одним народом, говорившим на одном языке. С востока люди пришли на землю Сеннаар (в нижнем течении Тигра и Евфрата), где решили построить город, названный Вавилоном, и башню до небес, чтобы «сделать себе имя». Строительство башни было прервано Богом, который создал новые языки для разных людей, из-за чего они перестали понимать друг друга, не могли продолжать строительство города и башни и рассеялись по всей земле. Таким образом, история о Вавилонской башне объясняет появление различных языков после Всемирного потопа.