Этот рецепт пришел к нам с Противовесного Континента. Очень практичная еда, которую удобно брать в дальную дорогу. Оригинальная версия печенья является разновидностью дварфийского хлеба, то есть с голоду оно вам умереть не позволит, но смерти вы себе возжелаете сами. К тому же оно очень хорошо хранится, потому что никто на него не покушается. Напишите программу, которая соберет рецепт печенья из предложенных компонентов.
Формат ввода
Вводится строка слов, разделенных пробелами – продукты.
Затем два целых числа в одной строке – диапазон количества продуктов.
Затем два вещественных числа через пробел – диапазон веса единицы продукта.
Формат вывода
Вывести рецепт из трех составляющих в виде:
1. weighing kg, of pieces, kg.
2. weighing kg, of pieces, kg.
3. weighing kg, of pieces, kg.
Продукты (product) брать из введенного списка без повторений;
количества (value) – случайное число из введенного диапазона, повторения возможны;
вес (weight) – случайное число из диапазона, округленное до десятых, повторения возможны;
общий вес (total weight) рассчитывается как произведение веса продукта на его количество с округлением до десятых.
Пример
Ввод Вывод
stone granite sandstone chalk basalt perovskite
1 12
0.1 1.9
1. granite weighing 1.3 kg, 12 of pieces, 15.6 kg.
2. basalt weighing 1.8 kg, 12 of pieces, 21.6 kg.
3. sandstone weighing 0.7 kg, 3 of pieces, 2.1 kg.
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x y');
for i:=1 to n do
writeln(x[i],' ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.
Первое задание:
1) 3
2) 6
3) 5
Второе задание:
1) 1
2) 3
Третие:
//Язык программирования java
package com.niksonbinsk;
import java.util.ArrayList;
import java.util.Scanner;
public class Main {
public static void main(String[] args) {
int space_left = 0;
int count = 0;
Scanner s = new Scanner(System.in);
ArrayList<Integer> str = new ArrayList<>();
while(space_left != 30){
System.out.println("Enter next num:");
str.add(s.nextInt());
space_left++;
}
for(int i =0;i<30;i++){
if(str.get(i) % 2 == 0){
count++;
}
}
System.out.println(count);
}
}
Объяснение: