Ознакомьтесь с материалами уроков и напишите программный код для следующих задач:
1.While: Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + . . . + 1/K будет больше A, и саму эту сумму.
2.For: Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения
1 − A + A2 − A3 + . . . + (−1)N ·AN .
Условный оператор не использовать.
3.Repeat: Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.
uses crt;
var
V,R:real;
begin
writeln('Введите радиус: ');
read(R);
V:=(4/3)*pi*(sqr(R)*R);
writeln('Объем равен: ',V:2:2);
end.
program s;
uses crt;
var
x,y,z,x1,y1,z1,r:real;
begin
writeln('Введите цену сахара: ');
read(x);
writeln('Количество купленного сахара (кг): ');
read(x1);
writeln('Введите цену муки: ');
read(y);
writeln('Количество купленной муки: ');
read(y1);
writeln('Введиет цену риса: ');
read(z);
writeln('Количество купленного риса: ');
read(z1);
r:=(x*x1)+(y*y1)+(z*z1);
writeln('Стоимость покупки ',r);
end.
Флеш память это разновидность полупроводниковой технологии электрически перепрограммируемой памяти (EEPROM). Это же слово используется в электронной схемотехнике для обозначения технологически законченных решений постоянных запоминающих устройств в виде микросхем на базе этой полупроводниковой технологии.