Задача 1. Їдальня закуповує щодня масло та кг по 110 грн. за кілограм, сметану та кг по 35 грн. за кілограм, вершки m3 кг по 70 грн. за кілограм. Визначте суми, потрібні для купівлі окремих продуктів, і загальну суму.
Var i,n:integer; s:string; a:array[1..32,1..2] of string; begin n:=1; for i:=Ord('А') to Ord('Я') do begin Str(i,s); a[n,1]:=Chr(i)+' - '+s; Inc(n); end; n:=1; for i:=Ord('а') to Ord('я') do begin Str(i,s); a[n,2]:=Chr(i)+' - '+s; Inc(n); end; for i:=1 to 32 do writeln(a[i,1],' ',a[i,2]) end.
Результат выполнения программы в среде PascalABC.Net А - 192 а - 224 Б - 193 б - 225 В - 194 в - 226 Г - 195 г - 227 Д - 196 д - 228 Е - 197 е - 229 Ж - 198 ж - 230 З - 199 з - 231 И - 200 и - 232 Й - 201 й - 233 К - 202 к - 234 Л - 203 л - 235 М - 204 м - 236 Н - 205 н - 237 О - 206 о - 238 П - 207 п - 239 Р - 208 р - 240 С - 209 с - 241 Т - 210 т - 242 У - 211 у - 243 Ф - 212 ф - 244 Х - 213 х - 245 Ц - 214 ц - 246 Ч - 215 ч - 247 Ш - 216 ш - 248 Щ - 217 щ - 249 Ъ - 218 ъ - 250 Ы - 219 ы - 251 Ь - 220 ь - 252 Э - 221 э - 253 Ю - 222 ю - 254 Я - 223 я - 255
i,n:integer;
s:string;
a:array[1..32,1..2] of string;
begin
n:=1;
for i:=Ord('А') to Ord('Я') do
begin
Str(i,s);
a[n,1]:=Chr(i)+' - '+s;
Inc(n);
end;
n:=1;
for i:=Ord('а') to Ord('я') do
begin
Str(i,s);
a[n,2]:=Chr(i)+' - '+s;
Inc(n);
end;
for i:=1 to 32 do writeln(a[i,1],' ',a[i,2])
end.
Результат выполнения программы в среде PascalABC.Net
А - 192 а - 224
Б - 193 б - 225
В - 194 в - 226
Г - 195 г - 227
Д - 196 д - 228
Е - 197 е - 229
Ж - 198 ж - 230
З - 199 з - 231
И - 200 и - 232
Й - 201 й - 233
К - 202 к - 234
Л - 203 л - 235
М - 204 м - 236
Н - 205 н - 237
О - 206 о - 238
П - 207 п - 239
Р - 208 р - 240
С - 209 с - 241
Т - 210 т - 242
У - 211 у - 243
Ф - 212 ф - 244
Х - 213 х - 245
Ц - 214 ц - 246
Ч - 215 ч - 247
Ш - 216 ш - 248
Щ - 217 щ - 249
Ъ - 218 ъ - 250
Ы - 219 ы - 251
Ь - 220 ь - 252
Э - 221 э - 253
Ю - 222 ю - 254
Я - 223 я - 255