Var p1, p2, p3, p4, p5:integer;
uses crt;
begin
writeln('Введите цену 1 товара:');
readln(p1);
writeln('Введите цену 2 товара:');
readln(p2);
writeln('Введите цену 3 товара:');
readln(p3);
writeln('Введите цену 4 товара:');
readln(p4);
writeln('Введите цену 5 товара:');
readln(p5);
writeln('Цена вашей покупки составляет ',p1+p2+p3+p4+p5);
end.
P.S. Надеюсь на Лучший ответ.
using System;
class Program
{
static void Main() {
string s=Console.ReadLine(),dic="abcdefghijklmnopqrstuvwxyz";
int k=0;
for(int i=0;i<dic.Length;i++)
{
for(int j=0;j<s.Length;j++)
if(s[j]==dic[i])
k++;
if(k!=0)
{
Console.WriteLine(dic[i].ToString()+" "+k.ToString());
k=0;
}
}
}
}
var
I,U,R: real;
begin
write('Введите значение напряжения (U, В) = '); readln(U);
write('Введите значение сопротивления (R, Ом) = '); readln(R);
I:=U/R;
write('Сила тока (I, A) = ', I);
end.