У нас есть бизнес-план! Пункт первый: надо написать программу-гороскоп, которая по некоторым простым вопросам выдаёт строго индивидуальный анализ личностных качеств. Мы будем делать это по передовым астрологическим методикам. Напишите программу, которая считывает с клавиатуры последовательно: имя, фамилию, любимое животное, знак зодиака.
После этого программа выводит:
Индивидуальный гороскоп для пользователя [имя] [фамилия]
Кем вы были в жизни: [любимое животное]
Ваш знак зодиака - [знак зодиака] , поэтому вы - тонко чувствующая натура.
Уточнение: слова про тонко чувствующую натуру выводятся абсолютно всегда, независимо от того, что именно вводил пользователь (это пародия на процесс составления «реального» гороскопа). В один и тот же фиксированный текст подставляются те слова, которые вводил пользователь.
Пробел перед запятой по правилам, конечно, не ставится, но здесь пусть стоит.
Пример
Ввод Вывод
Иван
Кузнецов
лис
овен
Индивидуальный гороскоп для пользователя Иван Кузнецов
Кем вы были в жизни: лис
Ваш знак зодиака - овен , поэтому вы - тонко чувствующая натура.
История решений
Добавить комментарий
Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
end.