pascal

[Nasten'ka]

надо составить программу вывода на экран номер телефона друга после ввода его имени с клавиатуры...

составьте программу попроще))))плз!!!

[Пепел Феникса]

где ваши наработки?

[Nasten'ka]

var
A:char;
Sasha,Dasha:char;
begin
writeln('ввудите имя друга');
readln(A);
if A=Sasha Then writeln('456376');
if A=Dasha Then writeln('786453')
else writeln('HETy');
readln;
end.

[Пепел Феникса]

var
A:string;
begin
writeln('ввудите имя друга');
readln(A);
if A='Sasha' Then writeln('456376');
if A='Dasha' Then writeln('786453')
else writeln('HETy');
readln;
end.

типо такого.

[Nasten'ka]

там теперь если вводишь саша,то он выводит номер,а на след.строке слово "нету"...
а если вводишь Даша,то тока номер...
почему так?!(

[Пепел Феникса]

var
A:string;
begin
writeln('ввудите имя друга');
readln(A);
if A='Sasha' Then writeln('456376') else
if A='Dasha' Then writeln('786453')
else writeln('HETy');
readln;
end.

извиняйте, мигрень дает знать

[Nasten'ka]

спасибочкие большое)))))
а то я уж и не надеялась её решить)))

[Nasten'ka]

а можете программу проверить)))

Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа, а пользователь должен выбрать правильный ответ и ввести его номер. В случае неверного ответа пользователя выдать сообщение “Правильный ответ 2!”.
Вопрос: Невский проспект получил своё название? 1.По имени реки, на берегах которой расположен Санкт-Петербург. 2.По имени близко расположенного монастыря Александро-Невской лавры. 3.В память о знаменитом полководце Александре Невском.

program NP;
VAR
mark: integer;
begin
writeln;
writeln ('Невский проспект получил своё название?');
writeln ('1.По имени реки, на берегах которой расположен Санкт-Петербург.');
writeln ('2.По имени близко расположенного монастыря Александро-Невской лавры.');
writeln ('3.В память о знаменитом полководце Александре Невском.');
readln;
writeln;
if mark=2 Then writeln ('правильно!')
Else writeln ('Правильный ответ 2!');
end.