Pascal ABC
Первый вариант с вводом числа с клавы, второй с циклом For
1)
Var A:integer;
S:string;
Begin
Write('Сумма сдачи = ');Read(A);
if (A>10)and(A<21) then S:= ' копеек'
else
Case A mod 10 of
1:S:=' копейка';
2..4:S:=' копейки';
0,5..9:S:=' копеек';
End;
WriteLn(A,S);
End.
2)
Var
A:integer;
S:string;
Begin
For A:= 1 to 100 do
Begin
if (A>10)and(A<21) then S:= ' копеек'
else
Case A mod 10 of
1:S:=' копейка';
2..4:S:=' копейки';
0,5..9:S:=' копеек';
End;
WriteLn(A,S)
End
End.
Обьект - обьект +1000000000000000000!!!
Кхм. У нас было похожее задание. У нас в учебнике в начале параграфа прям так и написано "ключевые слова/определения" и слова, которые описывают всю суть параграфа. Если у вас такого нет, просто спиши слова которые выделены жирным или курсивом в параграфе и вуаля.
Пиковая дама и Пушкин
Эверест выше Альбруса
Александр выше Анны
Windows2000, windows xp, windows 8, linux (на самом деле - ядро, но вроде можно назвать осью), mac os