ΠΡΟΓΡΑΜΜΑ Calculator
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Years,No
ΠΡΑΓΜΑΤΙΚΕΣ: no1,no2,no3,result1,result2,result3
ΑΡΧΗ
ΓΡΑΨΕ 'Δώστε την τιμή για την πίσσα.'
ΔΙΑΒΑΣΕ no1
ΓΡΑΨΕ 'Δώστε την τιμή για την νικοτίνη.'
ΔΙΑΒΑΣΕ no2
ΓΡΑΨΕ 'Δώστε την τιμή για το μονοξείδιο του άνθρακα.'
ΔΙΑΒΑΣΕ no3
ΓΡΑΨΕ 'Δώστε την τιμή για το πόσα χρόνια θέλεται να υπολογίσεται και για το πλήθος των τσιγάρων ανά μέρα.'
ΔΙΑΒΑΣΕ Years,No
result1 <-- no1 * 365 * Years * No/1000
result2 <-- no2 * 365 * Years * No/1000
result3 <-- no3 * 365 * Years * No/1000
ΓΡΑΨΕ 'Έχετε καταναλώσει ',result1,' γραμμάρια πίσσα, ', result2,' γραμμάρια νικοτίνη και ', result3,'γραμμάρια μονοξιδείου του άνθρακα.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Calculator