
25-10-2005, 02:48
|
|
|
|
חבר מתאריך: 24.10.05
הודעות: 66
|
|
|
הנה:
קוד:
program mivrak;
var
mis,code : real;
begin
writeln ('Insert number of words');
readln (mis);
writeln ('If out of country press 1, else press 2');
readln (code);
if (code = 1)
then
writeln (mis * 0.7 + 10, 'The Destination is out of the country');
if (code = 2)
then
writeln (mis * 0.7, 'The destination is Israel')
else
writeln ('Error in the code');
end.
|