program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания
Нет нельзя, в paint можно
#include <iostream>
using namespace std;
int main(){
String str;
int count=0;
cin>>str;
for(int i=0;i<str.length();i++){
if(str.at(i)==0||str.at(i)==1||str.at(i)==2||str.at(i)==3||str.at(i)==4||str.at(i)==5||str.at(i)==6||str.at(i)==7||str.at(i)==8||str.at(i)==9){
count++;
}
}
cout<<count;
}
B) Человек - манекен. (Это не точный ответ).
Var a,b,c,s:real;
begin
write('Счет 1: ');
readln(a);
write('Счет 2: ');
readln(b);
write('Счет 3: ');
readln(c);
s:=((a+b+c)/100)*15;
write('Чаевые ',s)
<span> end.</span>