JAVA ПРОВЕРЬТЕ , ЧТО НЕ ВЕРНО Посчитать размер вклада в банке. Исходный вклад 10 000
Случайным образом следует получить количество лет вклада, и проценты по вкладу.
Проценты начисляются на вклад раз в год.
Вывести размер вклада в конце каждого года.

import java.util.Random;
public class main
{
public static void main(String[] args)
{
double vklad = 10000;
System.out.println("Начальная сумма вклада: " + vklad);
int age = (int)(Math.random()*10)+1;
System.out.println("Срок вклада: " + age + " лет");
double p = ((Math.random()*10)+1);
System.out.println("Процент по вкладу: " + p + "%");
int i = 1;
while (i<=age)
{
vklad += (vklad*p)/100;
System.out.println("Сумма вклада на " + i + " год равна: " + vklad);
i++;
}

}
}

Современным компьютерам предшествовали ЭВМ нескольких поколений. В развитии ЭВМ выделяют пять поколений. В основу классификации заложена элементная база, на которой строятся ЭВМ.   1. В 1943 году была создана вычислительных машин ЭВМ первого поколения на базе электронных ламп.  2. Второе поколение (50 – 60 г. г. ) компьютеров построено на базе полупроводниковых элементов (транзисторах) .  3. Основная элементная база компьютеров третьего поколения (60 – 70 г. г. ) - интегральные схемы малой и средней интеграции.  4. В компьютерах четвертого поколения (70 – по н/в) применены больших интегральных схемах БИС (микропроцессоры) . Применение микропроцессоров в ЭВМ позволило создать персональный компьютер (ПК) , отличительной особенностью которого является небольшие размеры и низкая стоимость.  5. В настоящее время ведутся работы по созданию ЭВМ пятого поколения, которые разрабатываются на сверхбольших интегральных схемах. Объяснение:

Вот:

program pole;
var a, b, c, d, n, kolvo, x, y: real;
begin
write ('За сколько часов топчет землю Нейромонах Феофан? ');
read (a);
write ('За сколько часов топчет землю Балалаечник Никодим? ');
read (b);
write ('За сколько часов топчет землю Косолапый Мишка? ');
read (c);
write ('За сколько часов топчет землю 1 Добрый Молодец? ');
read (d);
write ('За сколько часов нужно выкопать землю? ');
read (n);
x:=1/a+1/b+1/c;
kolvo:=(1/n-x)/(1/d);
if (kolvo<0) then write ('Группа справится без молодцев.') else
begin
y:=kolvo;
if (((trunc(y*10)) mod 10) <5) then
kolvo:=kolvo + 1;
write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));
end;
end.